Найти наименьшее из двух целых чисел. Выводишь его на экран . Затем это наименьшее число умножаешь на 100 и опять выводишь на экран.
If a < b then begin writeln (a); writeln (100*a); end; else begin writeln (b); writeln (100*b); end;
мы вот начали
Program Zadaza;
var a,b: real;
begin
writeln ('vvedite a,b');
readln (a,b);
дальше не знаю((
А дальше и идет программа, которую я тебе написал. Только в конце не забудь добавить end. С точкой на конце! Это конец программы.
спасибо вам большое!
пожалуйста вам такое же большое!