Вопрос вопрос по информатике на языке программирования паскаль условие на фотографии решите все задания пж
- Автор темы тима1
- Дата начала
1.Очень простая задача: program odd; var x:longint; k,n:integer; s:string; begin readln(x); str(x,s); n:=0; for k:=1 to length(s) do begin if ((x mod 10) mod 2)=1 then n:=n+1; x:=x div 10 end; writeln
end.
end.Идиотизм. Для современного процессора, с тактовой частотой даже в два гигагерца (тоже мне "современный") одна секунда это целая вечность. Писать программу, которая займёт больше 512 мегабайт, шестикласснику придётся до пенсии. Для примера Лев Толстой за всю жизнь не написал двухсот мегабайт.
