Сканирование щитовидной железы @ Радиология
Вот вторая: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.
Университетской группе КВН очень нужно показать испанский бой (название пьесы точно не помню, но там скорее всего испанский)...Ребята-гитаристы, помогите пож-та...не знаю у кого ещё спросить((.