Предмет: Информатика,
автор: Аноним
Запись на языке Pascal полного ветвления
аааа.очень очень нужно:*в интернете не могу найти(
Ответы
Автор ответа:
0
program w;
uses crt;
var A:real;
begin
clrscr;
write ('Введите число A: ');
readln (A);
if A>=0 then
writeln ('Вы ввели положительное число');
readln
end.
Похожие вопросы
Предмет: Физика,
автор: sevensz
Предмет: Биология,
автор: BilalMurtazaliev
Предмет: Математика,
автор: cekalinaizere95
Предмет: Физика,
автор: Аноним