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.
type
n= array[1..10] of integer;
var
a:n;
i : integer;
fl : integer;
max : integer;
begin
max:=A[1];
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
end;
writeln;
fl:=0;
for i:=1 to 10 do
if a[i]>max then
begin
fl:=fl+2;
writeln('В массиве есть положительные элементы',fl);
end;
end.