{% else-1 %}

Нет фото
foster * 0.06
• 9 янв 2013, 18:34

•••
Program Calc; {Название программы}
uses CRT; {Подключение модулей}
var a, b, r: real; {Переменные}
c: char;
ok: boolean;
begin {Начало программы}
clrscr; {Очистка экрана}
repeat
ok:=true;
writeln(\'Введите первое число.\'); {Дать значение}
readln(a);
writeln(\'Введите второе число.\'); {Дать значение}
readln(b);
writeln(\'Введите действие: \"+\" - сложение, \& ...
Комментариев нет!