if a < b then if a < c then writeln(a, ' - меньшее') else writeln(c, ' - меньшее') else if b < c then writeln(b, ' - меньшее') else writeln(c, ' - меньшее'); end.
Ответ дал: Гость
var a: array[1..100,1..100] of integer;
i,j,n,min: integer;
begin
read(n);
min: =maxint;
for i: = 1 to n do
for j: = 1 to n do begin
read(a[i,j]);
if abs(a[i,j])< abs(min) then min=a[i,j];
end;
for i: = 1 to n do begin
for j: = 1 to n do begin
a[i,j]: =a[i,j] + min
write(a[i,j]);
end;
writeln;
end;
end.
Ответ дал: Гость
если паскаль, то вот :
program altzie;
var h: real;
begin
repeat write('введите h ');
readln(a); if a< =0then writeln('ошибка! значение h не может быть нулевым или отрицательным. повторите ввод.');
until h> 0;
writeln('площадь боковой поверхности куба = ', (6*h*h));
Популярные вопросы