Var i: byte;
begin i := 10; while i <= 100 do begin if not odd(i) then write(i, ' '); inc(i); end; writeln; i := 10; repeat if not odd(i) then write(i, ' '); inc(i); until i = 101; writeln; for i := 10 to 100 do if not odd(i) then write(i, ' ');end.
1.
var x,y:real;
begin
write('x = ');
readln(x);
y:=7*x+5;
writeln('y = ',y);
end.
Пример:
x = 9
y = 68
5.
var a,b,c:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
c:=sqrt(a*a+b*b);
writeln('c = ',c);
end.
Пример:
a = 3
b = 4
c = 5
10.
var a,b,c,h,p:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('h = ');
readln(h);
c:=sqrt(((a-b)/2)*((a-b)/2)+h*h);
p:=a+b+2*c;
writeln('p = ',p);
end.
Пример:
a = 12
b = 6
h = 4
p = 28
Нарисовал, после да надо опять уйти на првоерку
В граф. вид сами нарисуете (я не кулинар, предупреждаю).
Начало (в кружке)
Цикл начинается:
Берем блин (в квадрате)
Кладем на сковородку (в квадрате)
Переварачиваем (в квадрате)
Кладем на тарелку для блинов (в квадрате)
Цикл кончается
Конец (в кружке)
К циклу прикрутите счетчик и после начала еще 'считывайте' количество блинов