Нарисовать блок-схему. написать программу к данной . вводим 2 числа. они складываются. если результат больше 10, то вывести первое число, если нет вывести второе число.
Вот тебе проверенная мною программа и блок-схема.Неблагодари. program 1; var a,b,c:integer; begin writeln('a='); ReadLn(a); WriteLn('b='); ReadLn(b); c:=(a+b); if c>10 then writeln(a) else WriteLn(b); end.
Использовать источники открытого огня (спички, зажигаприносить на уроки легковоспламеняющиеся вещества (лаки, краски, порох и т.п.); лки, петарды и др.); работать с электроприборами, имеющими повреждения корпуса или изоляции соединительных проводов; вставлять в отверстие приборов посторонние предметы; приносить и самовольно подключать какое-либо оборудование; производить самовольное переключение разъёмов оборудования; вставлять в отверстие приборов посторонние предметы; работать с электроприборами, имеющими повреждения корпуса или изоляции соединительных проводов;
Const m=4; n=5; var a:array[1..m,1..n] of real; i,j:integer; max:real; begin Randomize; writeln('Исходный массив:'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(10); write(a[i,j]:5:1); end; writeln; end; max:=a[1,1]; for i:=1 to m do for j:=1 to n do if a[i,j]>max then max:=a[i,j]; writeln('max = ',max); for i:=1 to m do for j:=1 to n do if a[i,j]=max then a[i,j]:=a[i,j]/2; writeln('Полученный массив:'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:5:1); writeln; end; end.
var a,b,c,d:integer;
begin
readln (a);
readln (b);
c:=a+b;
if (c>10) then writeln (c)
else writeln (b);
end.