Запись ** языке Pascal полного ветвления аааа.очень очень нужно:*в интернете не могу...

0 голосов
75 просмотров

Запись на языке Pascal полного ветвления

аааа.очень очень нужно:*в интернете не могу найти(


Информатика | 75 просмотров
Дан 1 ответ
0 голосов

Program w; uses crt; var A:real; begin clrscr; write ('Введите число A: '); readln (A); if A>=0 then writeln ('Вы ввели положительное число'); readln end.

(16 баллов)