Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 var a,b,c,s:real; begin repeat write ('Введите длину гипотенузы c='); readln(c); write ('Введите длину катета a='); readln(a); write ('Введите длину площади s='); readln(s); if (c>b) and (c>0) and (b>0) then begin a:=sqrt(sqr(c)-sqr(b)); s:=(1/2)*b*c; write end.
Надо использователь цикл for в котором в формуле прописать s:=i+1/3
Текст программы на языке Pascal:
program p1;
var a: array [1..40] of integer;
var i,c:integer;
begin
c:=0;
for i:=1 to 40 do
begin
a[i]:=random(20);
write (a[i],' ');
if (a[i] mod 3) = 0
then c:=c+a[i];
end;
writeln;
writeln (c);
<span>end.</span>
GIF, JPEG, PNG, и WebP-форматы у изображения