Предмет: Информатика,
автор: mrr1ght
Pascal ABC
Операторы case of и if the else
Помогите написать программу...
Приложения:
Ответы
Автор ответа:
0
я пишу на делфи 7 ну попробуй сообразить немного
Приложения:
![](https://files.topotvet.com/i/abb/abbd249256a71cbba6789f26e02b006a.png)
Автор ответа:
0
var
a, b, c : integer;
begin
write('Введите первое целое число '); readln(a);
write('Введите второе целое число '); readln(b);
if a < b then c := 2*a
else c := 2*b;
writeln('Меньшее число ', c div 2);
writeln('Оно же увеличенное вдвое ', c)
end.
a, b, c : integer;
begin
write('Введите первое целое число '); readln(a);
write('Введите второе целое число '); readln(b);
if a < b then c := 2*a
else c := 2*b;
writeln('Меньшее число ', c div 2);
writeln('Оно же увеличенное вдвое ', c)
end.
Похожие вопросы
Предмет: География,
автор: Gbcdghjhf
Предмет: История,
автор: irunka1289
Предмет: Литература,
автор: kursakovis1007
Предмет: Математика,
автор: Nataaaalya323