Напишите программу, которая будет работать следующим образом: пользователь вводит сколько угодно чисел - id2138596020201105 от supgrigori 05.11.2020 20:16

Question

Информатика: Напишите программу, которая будет работать следующим образом: пользователь вводит сколько угодно чисел до тех пор, пока не введёт ноль, после чего программа останавливается. Использовать надо BREAK и WHILE Напишите программу в которой пользователь сможет вводить сколько угодно строк, одну за другой, до тех пор пока не введёт слово стоп, после чего программа прекратит работать напишите в online Peyton - editor compiler и т.д.

supgrigori · Accepted Answer

Решение, что называется, в лоб (далеко, очень далеко, не самое лучшее): var s,k1,k5,k10,k50,k100,k500,k1000,k10000:integer; begin write( s = ); readln(s); k1:=0; k5:=0; k10:=0; k50:=0;  k100:=0; k500:=0; k1000:=0; k10000:=0; while s =10000 do begin s:=s-10000; k10000:=k10000+1; end; while s =1000 do begin s:=s-1000; k1000:=k1000+1; end; while s =500 do begin s:=s-500; k500:=k500+1; end; while s =100 do begin s:=s-100; k100:=k100+1; end; while s =50 do begin s:=s-50; k50:=k50+1; end; while s =10...

MOGZ ответил