Почему не работает запись в паскале по : написать - вопрос №4730158 от helooooo 12.02.2020 06:42

Question

Информатика: Почему не работает запись в паскале по : написать программу, подсчитывающую количество четных цифр, которые делятся на 4, в числе. вот запись, исправьте : program chisla; var a,b,k: integer; begin k: =0; writeln( введите число ); readln(a); repeat if(a mod 2=0)and(a mod 4=0)then k: =k+1 until a=0; writeln( количество чисел= ,k) end.

helooooo · Answer

Var a,b,k:integer;begink:=0;writeln( Введите число );readln(a);repeatif (a mod 10) in [4,8] then k:=k+1;a:=a div 10;until a=0;writeln( Количество чисел= ,k)end.Введите число24583Количество чисел=2...