var a:array[1..100] of integer;
s,i: integer;
begin
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
if a[i] mod 3 = 0 then begin
s:=s+a[i];
end; end;
writeln('summa chisel kratnx 3 = ', s);
readln;
end.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x=');
Writeln('y=',3*x*x/Cos(2*x))
end.
<u>Пример</u>
x= -0.57
y=2.33408244304191
Begin
var c := 0;
var x := readinteger('Введите число:');
while x > 0 do
begin
x := x div 10;
c := c + 1;
end;
if(c = 3) then write('Да')
else write('Нет');
end.
Цикл со счетчиком 17-4.png
<span>Цикл с условием 17-5.jpg</span>