1)
program gt1;
var x,y:real;
begin
x:=-3.1;
while x<1 do
begin
x:=x+0.1;
y:=4*x*x*x-2*x*x+5;
writeln(y);
end;
end.
2)
program gt2;
var k,i:integer;
begin
k:=0;
for i:=11 to 20 do
begin
if(i mod 2=1)then k:=k+1;
end;
writeln(k);
end.
3)
program gt3;
var s,i:integer;
begin
s:=0;
for i:=1 to 100 do
begin
if(i mod 2=0)then s:=s+i;
end;
writeln(s);
end.
4)
program gt4;
var sum,a:real;
i,n:integer;
begin
sum:=0;
a:=0;
readln(n);
for i:=1 to n do begin
a:=1/((3*n-2)-(3*n+1));
Sum:=sum + a;
n:=n+1;
end;
write(sum);
end.
5)
program gt5;
var n,k:integer;
begin
k:=0;
while n>0 do
begin
n:=n div 10;
k:=k+1;
end;
writeln(k);
end.
Ф.И.Класс
Задание 1 Найди уравнения и реши их.
А) 35 + х
В) 68 — 33 = 35
С) х + 4 > 3
D) 17 + х = 29
E) х + 7 = 56
F) х = 18
Задание 2
Если синий карандаш толще красного, а красный толще голубого, то какой карандаш толще?
А) Голубой; В) Синий.
Задание 3
Мать для своих детей оставила дома конфеты. Первым пришел из школы брат, взял свою половину конфет и ушел гулять. Затем пришла сестра. Думая, что брат еще не брал конфет, она съела только половину оставшихся, после чего осталось еще 3 конфеты. Сколько было конфет вначале?
А) 14 В) 12 С) 10 D) 16
Задание 4
Подбери два слагаемых для числа 66 так, чтобы одно было больше другого в 2 раза.
Задание 5 Оля вырезала из бумаги 5 квадратов, 7 треугольников, а кругов в 2 раза больше, чем треугольников. Сколько всего Оля вырезала фигур?
Задание 6 Первое число 12, второе в 3 раза меньше, а третье в 4 раза больше, чем второе. Вычисли сумму этих трех чисел.
Задание 7
На часах было 11:45, когда начался мультфильм. Он длился 50 минут. Точно в середине просмотра пришла мама и позвала обедать. Какое время показывали часы в этот момент?
ОТВЕТ:
Задание 8 Речь пойдёт про единицы времени. Что можно узнать, данным произведением 60 х 60 х 24 х 7
ОТВЕТ:
Задание 9
Если Витя купит 3 пачки чипсов, то у него останется 4 тенге. А если бы он захотел купить 5 пачек, ему бы не хватило 20 тенге. Сколько денег у Вити?
Задание 10
Как с двух бидонов ёмкостью 5 л и 8 л отлить из молочной цистерны 7 л молока?
Ф.И.Класс
Задание 1 Найди уравнения и реши их.
А) 35 + х
В) 68 — 33 = 35
С) х + 4 > 3
D) 17 + х = 29
E) х + 7 = 56
F) х = 18
Задание 2
Если синий карандаш толще красного, а красный толще голубого, то какой карандаш толще?
А) Голубой; В) Синий.
Задание 3
Мать для своих детей оставила дома конфеты. Первым пришел из школы брат, взял свою половину конфет и ушел гулять. Затем пришла сестра. Думая, что брат еще не брал конфет, она съела только половину оставшихся, после чего осталось еще 3 конфеты. Сколько было конфет вначале?
А) 14 В) 12 С) 10 D) 16
Задание 4
Подбери два слагаемых для числа 66 так, чтобы одно было больше другого в 2 раза.
Задание 5 Оля вырезала из бумаги 5 квадратов, 7 треугольников, а кругов в 2 раза больше, чем треугольников. Сколько всего Оля вырезала фигур?
Задание 6 Первое число 12, второе в 3 раза меньше, а третье в 4 раза больше, чем второе. Вычисли сумму этих трех чисел.
Задание 7
На часах было 11:45, когда начался мультфильм. Он длился 50 минут. Точно в середине просмотра пришла мама и позвала обедать. Какое время показывали часы в этот момент?
ОТВЕТ:
Задание 8 Речь пойдёт про единицы времени. Что можно узнать, данным произведением 60 х 60 х 24 х 7
ОТВЕТ:
Задание 9
Если Витя купит 3 пачки чипсов, то у него останется 4 тенге. А если бы он захотел купить 5 пачек, ему бы не хватило 20 тенге. Сколько денег у Вити?
Задание 10
Как с двух бидонов ёмкостью 5 л и 8 л отлить из молочной цистерны 7 л молока?
program lkcfndsl;
uses crt;
var a,b,s,g:real;
begin
clrscr;
readln(a,b);
s:=(a+b)/2;
g:=sqrt(a*b);
if a>b then a:=g else a:=s;
if b>a then b:=g else b:=s;
writeln(a,b);
readln;
end.
Надеюсь так понял.