//Pascal ABC.NET 3.1 сборка 1256
Var
x,s,i:integer;
begin
randomize;
s:=0;
i:=0;
while s<1700000 do
begin
inc(i);
x:=random(150001);
s:=s+x;
writeln('Месяц:',i,', своровал:',x,', сумма на текущий момент:',s);
end;
writeln('Res=',i);
end.
Апельсин +удобный не болят глаза - многовато радиации если положить рядом телефон
Аудиокарта или звуковая плата.
Program p1;
var i:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
writeln('Введите ',i,' число: ');
read(a[i]);
end;
for i:=1 to 10 do
if (a[i] mod 3)=0 then writeln('Число: ',a[i]);
<span>end.</span>
Смотри.
икс не кратно 7 записывается так:
x mod 7≠0
пример:
If (x mod 7≠0) then begin
mod это деление нацело, то есть
14 mod 7=0 - 14 делится нацело на 7.
только вместо знака ≠ надо писать знаки
если не сработает, попробуй
