Гонохова А.К. учитель информатики школа 158 Санкт-Петербург 2012

Если на одну чашу весов посадить Дашу, которая весит N килограммов, и Наташу, которая весит на 5 килограммов меньше, а на другую насыпать M килограммов конфет, которые намного тяжелее девочек, то сколько килограммов конфет придется съесть несчастным, чтобы чаши весов уровнялись?

Program N1; Var n, m, s, a: real; Begin Writeln(Задайте вес Даши в кг); Readln (n); Writeln(Задайте вес конфет в кг); Readln (m); s:=n+n-5; a:=(m-s)/2; Writeln(a:1:2); End.

Петя задумал число и никому не сказал какое. Друзья поймали его и заставили удвоить задуманное число, а потом прибавить к нему 5. И только после того как они пообещали Пете помощь на контрольной по математике, он сознался, что вышло число n. Определите какое число задумал и скрыл от своих друзей Петя.

Program N2; Var n: integer; Begin Writeln(Какое число получилось у Пети); Readln(n); n:=n-5; n:=n div 2; Writеln(Петя задумал число –, n); End.

На таксе Дуське сидит x блох, а на овчарке Ладе – y. После того, как овчарка и такса встретились и поговорили друг с другом, 12 дусиных блох пересели на Ладу, а 17 ладиных пересели на Дуську. Сколько блох теперь сидит на Ладе, а сколько на Дуське.

Program N3; Var x, y, z: integer; Begin Writeln(ведите сколько блох сидело на Дуське); Readln(x); Writeln(Введите сколько блох сидело на Ладе); Readln(y); x:=x+5; y:=y-5; Writeln(На Дуське, x, а на Ладе, y); End.

Из террариума сбежали x гадюк, y кобр и z гюрз. Длина каждой гадюки 1 метр, каждой кобры 1 м 30 см, а гюрзы – 1 м 15 см Сколько полных метров ядовитых змей сбежало из террариума? Какую общую длину они составляют в см?

Program N4; Var x, y, z, d: integer; h: real; Begin Writeln(Задайте количество гадюк, кобр и гюрз, которые сбежали из террариума); Readln(x, y, z); h:=(x+y*1.30+z*1.15)*100; d:=h div 100; Writeln(В, h:3:2, см. полных метров –, d); End.

У царицы Несмеяны круглое лицо, радиус которого R. Определить, какую сторону должно иметь квадратное зеркало, чтобы, когда Несмеяна любовалась собой, ее отображение помещалось в зеркале.

Program N5; Var r: real; Begin Writeln(Задайте радиус лица Несмеяны); Readln(r); r:=2*r; Writeln(Сторона зеркала -, r:2:2); End.

40 бабушек встали в очередь за пенсией. На выдачу пенсии каждой бабушке кассир тратит 1 мин 32 сек. На сколько минут раньше, чем сороковая, получит пенсию двадцать пятая бабушка.

Program N6; Var m, c: real; Begin m:=40-25; c:=m*32/60; m:=m+tranc(c); Writeln(На, m:1:0, мин позже); End.

На маленьком квадратном безлюдном острове, длина стороны которого была X м, жили Y потерпевших кораблекрушение Робинзонов. Выяснить на сколько квадратных метров площади меньше пришлось на каждого Робинзона после того, как на остров пришел еще один потерпевший кораблекрушение Робинзон.

Program N7; Var x, y, h, d: real; Begin Writeln(Введите x и y); Readln(x, y); h:=sqr(x)/y; d:=sqr(x)/(y+1); h:=h-d; Writeln(На, h:2:2, кв м); End.

Курочка Ряба снесла яичко, а мышка взяла и разбила его. Тогда курочка Ряба снесла еще 3 яичка. Мышка эти тоже разбила. Ряба поднатужилась и снесла еще 5 яичек, но бессовестная мышка расколотила и эти. Так продолжалось 5 раз, пока Ряба не сдалась. Из скольки яиц Дед и Баба смогли бы сделать себе яичницу, если бы не разбало- вали свою мышку?

Program N8; Var x: integer; Begin x:=1; s:=s+x; x:=x+2; s:=s+x; Writeln(Ряба снесла, s, яичек); End.