Pascal ABC. Найти количество четверок в числе, используя crt. Заранее спасибо :). Created by vladyandymokk13. informatika-ru

Pascal ABC. Найти количество четверок в числе, используя crt. Заранее спасибо :)...

vladyandymokk13 @vladyandymokk13

July 2022 1 25 Report

Pascal ABC. Найти количество четверок в числе, используя crt. Заранее спасибо :)

Answers & Comments

AnonimusPro

Verified answer

Program n1;
uses crt;
var n,m,p,k:integer;
begin
write('введите число: ');
readln(n);
m:=n;
k:=0;
while m<>0 do begin
p:=m mod 10;
if p=4 then k:=k+1;
m:=m div 10;
end;
writeln('кол-во 4: ',k);
end.

2 votes Thanks 1

vladyandymokk13 спасибо что снова помог :)

izomerami yavlyayutsya 1 butan i 2 metilpropan 2 ciklopropan i propan 3 butan i 2

Answer

vladyandymokk13 August 2022 | 0 Ответы

pascal abc napisat chisla ot 30 do 10 v stolbik zaranee spasibo

Answer

vladyandymokk13 August 2022 | 0 Ответы

pascal abc napisat programmu kotoraya opredelyaet znak zodiaka pri vvode daty ro

Answer

vladyandymokk13 August 2022 | 0 Ответы

v kakom iz perechislennyh sluchaev modul peremesheniya tela raven nulyu a avtomobi

Answer

vladyandymokk13 July 2022 | 0 Ответы

Answers & Comments

Verified answer

izomerami yavlyayutsya 1 butan i 2 metilpropan 2 ciklopropan i propan 3 butan i 2

pascal abc napisat chisla ot 30 do 10 v stolbik zaranee spasibo

pascal abc napisat programmu kotoraya opredelyaet znak zodiaka pri vvode daty ro

v kakom iz perechislennyh sluchaev modul peremesheniya tela raven nulyu a avtomobi

massa mgno32mgno32 poluchennogo pri vzaimodejstvii 0101 mol oksida magniya

ml74465823b0ab0b0474c79d5e1b1f3b90 81206

3=3, 7*7=49, 15-5=10...

sostavte strukturnuyu formulu dlya geptina 2

kak nazyvaetsya eto veshestvoeea71d03e51e13f8062e5af846ef1e53 39156

test po teme ekonomicheskij cikl 1 ekonomicheskoe negativnoe yavlenie pri kotor

рекомендуемые вопросы

Helpful Links

Helpful Social