нужно составить блок схему и запустить программу Turbo Pascal
вот задача
Ввести 2 числа. Если числа не равны, то заменить каждое из них числами, равным большему из исходных, а если равны, то заменить числа нулями.
Буду искренни признательна помощи
я учусь на туризм
мне информатику просто зачет нужно сдать
а я ее совсем не знаю, не было в школе у меня ее просто
спасибо огромное кто помог
program sss;
var a,b:integer;
begin
readln9a,b);
if a>b then b:=a
else if a
Вика, без обид, но тем, кто помогает с такими элементарными заданиями, я бы руки отрывал. Если не научишься щелкать такие простые задания - никогда не стать тебе программистом. Программирование - это только ЛИЧНЫЙ опыт.
uses crt;
var a,b:integer;
begin
clrscr;
write('Введите 1-ое число: '); readln(a);
write('Введите 2-ое число: '); readln(b);
if ab then begin
a:=a+a;
b:=b+b;
writeln('a= ',a,' b= ',b)
end
else
begin
a:=0; b:=0; writeln('a= ',a,' b= ',b)
end;
end.
всех кто написал код, убил бы
тоже мне блин знатоки паскаля
⇢