Запись на языке Pascal полного ветвления
аааа.очень очень нужно:*в интернете не могу найти(
Program w;uses crt;var A:real;beginclrscr;write (Введите число A: );readln (A);if A>=0 thenwriteln (Вы ввели положительное число);readlnend.
Оцени ответ
Вход
Регистрация
Задать вопрос
Запись на языке Pascal полного ветвления
аааа.очень очень нужно:*в интернете не могу найти(
Program w;uses crt;var A:real;beginclrscr;write (Введите число A: );readln (A);if A>=0 thenwriteln (Вы ввели положительное число);readlnend.