120n (руб) - стоимость всего мороженого
3800к (руб) - стоимость всего шоколада
120n + 3200k (руб) - потратил мальчик на всю покупку
Где? на каком сайте? какая почта?
program raf105;
var i,sum,pro,a:integer;
begin
writeln('Вводите 5 чисел по очереди');
pro:= 1;
for i:=1 to 5 do
begin
readln(a);
if (a>=100) and (a<=999) and ((a mod 3)=0)
then
begin
sum+= a;
pro*= a;
end;
end;
writeln('Сумма трёхзначных чисел кратных трём: ',sum);
writeln('Произведение трёхзначных чисел кратных трём: ',pro);
end.
<em><u>Язык PascalABC</u></em>
A), b) и d). Разработкой программного обеспечения занимается программист.
<span>program 123;
uses crt;
var m, n: longint;
k: integer; {счетчик цифр}
begin
clrscr;
{Вводим целое число.}
writeln('Введите N='); readln(n);
{Запоминаем его и счетчику цифр присваиваем начальное значение.}
m:=n;k:=0;
{Пока m<>0 делать цикл.}
while m <>0 do
begin
{"Уменьшаем" число на последнюю цифру, т. е. в 10 раз.}
k:=k+1; m:= m div 10; {Inc(k) }
end;
{Вывод количества цифр.}
writeln('B числе ',n,'- ',k, ' цифр!');
readln;
end.</span>