const N = 10; var a: array[1..N] of integer; i, min, max: integer; begin min := 30; for i := 1 to N do begin a[i] := random(30); if(a[i] < min) then min := a[i]; if(a[i] > max) then max := a[i]; write(a[i], ' '); end; writeln('Произведение: ', min * max); end.
Var i,d,n,k:integer; begin Write('Введите трехзначное натуральное число: '); Read(n); k:=0; for i:=1 to 3 do begin d:=n mod 10; if d mod 3=0 then begin Inc(k); Write(d,' ') end; n:=n div 10 end; if k>0 then Write('- цифры, кратные трем') else Write('Таких цифр нет') end.
Введите трехзначное натуральное число: 184 Таких цифр нет
Замечание: в программе считается, что цифра 0 также кратна трем (как и всем другим числам), поскольку остаток от деления от нуля на 3 равен 0. Если это не так, то замените условие d mod 3 = 0 на (d mod 3 = 0) and (d>0)
Если Вашу программу исправить, это так будет выглядеть: var a,b,c,p:real; begin writeln('введите размеры треугольника a,b,c'); read(a,b,c); p:=a+b+c; if (a=b) and (a=c)then begin writeln('треугольник равносторонний'); writeln('периметр треугольника',p); end else writeln ('треугольник не равносторонний'); end.
А если написать самостоятельно, я бы сделал так: var a,b,c:real; begin Write('Введите размеры треугольника a,b,c: '); Read(a,b,c); if (a=b) and (a=c) then Writeln('Треугольник равносторонний с периметром ',3*a) else Writeln ('Треугольник не равносторонний') end.
const
N = 10;
var
a: array[1..N] of integer;
i, min, max: integer;
begin
min := 30;
for i := 1 to N do begin
a[i] := random(30);
if(a[i] < min) then min := a[i];
if(a[i] > max) then max := a[i];
write(a[i], ' ');
end;
writeln('Произведение: ', min * max);
end.