Дорогие подарки для детей : Новогодние товары

Отвечаю на вопрос! Я со своими друзьями отдыхаю на хортице не часто и вовновном с ночёвкой и на машинах поэтому мы выбрасываем мусор в урны, но ведь многие идут на хортицу пешком, а после употребления еды и питья всё както впадлу и даже самые аккуратные не заметив по близости урны оставляют всё на месте.
Снова дорогие подарки для детей
Вот вторая:Program Balashova_2;uses crt;var a,b:integer; k,ost,temp:integer;begin clrscr;writeln('Enter number A: '); readln(a);writeln('Enter number B: '); readln(b);while (temp<a) do begintemp:=temp+b;if temp>a then begin ost:=a-(temp-b); break; end;inc(k);end;writeln('A divizion B = ',K);writeln('All symbols at point do last symbol of A divizion B = ',ost);readkey; end.
вау еще одно решение!!! просто прекраснно.
ну у меня еще есть задачи будете решать?
Жаль на группу нельзя вывести табличку "КРУГЛОСУТОЧНО".
Подсчитать сумму всех нечётных чисел в промежутке от 101 до 301.
хех..... а что делать....:))).
Program Balashova_3;uses crt;var k,i:integer;begin clrscr;for i:=101 to 301 do if i mod 2 <> 0 then k:=k+i; writeln('Sum: ',k);readkey; end.
ну если не спится то можешь и эту решить :)))Подсчитать сумму цифр введённого целого числа (на каждом шаге выделяется последняя цифра числа, затем число делится на 10, процесс повторяется пока число не 0).