1.
uses crt;
var x,y,z:integer;
begin
write('x:'); readln(x);
write('y:'); readln(y);
write('z:'); readln(z);
write('x*y*z=',x*y*z);
<span>end.
2.
uses crt;
var x:integer;
begin
write('Введите число:'); readln(x);
if x mod 7=0 then writeln('YES')
else writeln('NO');
<span>end.
3.
uses crt;
var n,x,sum:integer;
begin
write('N:'); readln(n);
sum:=0;
for x:=1 to N do
sum:=sum+x;
write(sum);
<span>end.</span></span></span>
Var n,k : Integer;
Begin
k:=-1;
Readln(N);
While N>0 do
Begin
If (not Odd(N mod 10)) and ((N mod 10)>k) then k:=N mod 10;
N:=N div 10;
end;
If k=-1 then Writeln('не найдено') else Writeln(k);
end.
//PascalAbc.net V 3.3
const n = 30;
var a:array[1..n] of integer;
n3,n4,n5,i:integer;
begin
for i:=1 to n do begin
a[i]:=random(3,5);
if a[i]=3 then inc(n3);
if a[i]=4 then inc(n4);
if a[i]=5 then inc(n5);
end;
writeln('3 - ',n3);
writeln('4 - ',n4);
writeln('5 - ',n5);
print(a);
end.
Ответ:
1 float a, b, s;
2 float f, kg;
3 float v, d, p;
4 float const p = 3.14;
float r1, r2, s;
5 int t, k, l;
float ct, ck, cl, c;
Объяснение:
1 стороны и площадь
2 фунты, килограммы
3 размер вклада, размер дохода, процент
4 внутренний радиус, внешний радиус, площадь, число пи
5 количество тетрадей, карандашей, линеек, их цены и общая стоимость покупки
для паскаля вместо float будет Real
например:
a, b: Real;