Ответ:
F10 нажимай если уже все.
Объяснение:
1-верно
2-неверно
3-<span>верно
4-</span><span>верно
5-</span><span>верно
6-</span><span>верно
7-не</span><span>верно
8-не</span><span>верно
9-</span><span>верно
10-</span><span>верно
11-</span><span>верно
12-не</span><span>верно
13-</span><span>верно
14-</span><span>верно</span>
VAR I,N,C,KT,SUM:INTEGER;BEGINN:=0;C:=0;KT:=0;FOR I:=50 TO 100 DOBEGIN WRITE (I:3);N:=N+1;IF I MOD 2=0 THEN C:=C+1;IF I MOD 3=0 THEN KT:=KT+1;IF (I MOD 2=0) AND (I MOD 3=0)THEN SUM:=SUM+I;END;WRITELN;WRITELN ('ВСЕГО ', N:2, 'ЧЕТНЫЕ ', C:2, 'КРАТНЫЕ ТРЁМ ',KT:2);WRITELN ('СУММУ ЧИСЕЛ ЧЕТНЫХ И КРАТНЫХ ТРЕМ ', SUM:4);END.
Кот ловит мышь
ученик делает уроки
отец читает газету
Program intel;
var a,i,sum: integer;
Begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
a:= random(31)-10;
writeln(a:10);
sum:=sum+a;
end;
writeln;
writeln(sum:10);
readln;
end.