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.
Ответ:у тебя наверное комп старый у меня было такое и пришлось новый покупать
Объяснение:
Ошибка. Неправильная ссылка на ячейку.
//PascalABC.NET 3.1 сборка 1239
begin
var a := ArrRandom(7, -50, 50);
a.Println;
Println(a.Count(x -> x mod 7 <> 0));
end.
Ответ:
Python:
x, y, z = map(bool, input().split())
if not y:
if x or y:
print(x*или y, это момент не понял* eqv z)