Кохлеарная имплантация реабилитация : Ортопедия
Вот вторая: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 ',K);writeln('All symbols at point do last symbol of divizion ',ost);readkey; end.
вау еще одно решение!!! просто прекраснно.
ну меня еще есть задачи будете решать?
Жаль на группу нельзя вывести табличку "КРУГЛОСУТОЧНО".
Подсчитать сумму всех нечётных чисел промежутке от 101 до 301.
хех....что делать....:))).
Program Balashova_3;uses crt;var k,i:integer;begin clrscr;for i:=101 to 301 do if mod <> then k:=k+i; writeln('Sum: ',k);readkey; end.
кохлеарная имплантация реабилитация ну если не спится то можешь эту решить :)))Подсчитать сумму цифр введённого целого числа (на каждом шаге выделяется последняя цифра числа, затем число делится на 10, процесс повторяется пока число не 0).
program Balashova_4;uses crt;var x,s:integer;begin clrscr;writeln('Enter number: ');readln(x);repeat s:=s+x mod 10;x:=x div 10;until x=0;writeln('Sum ',s);readkey; end.
