Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на языке программирования паскаль var s, k, x: integer; begin s: =1; x: =2; for k: =1 to 9 do s: =s*x; writeln(s); end.

Ну принцип какой... У тебя дан for от 1 до 9, т.е. 8 раз надо провести операцию s=s×x
1s=2, т.к. 2*1=2
2s=4
3s=8
4s=16
5s=32
6s=64
7s=128
8s=256
И ответом выйти должно 256

Здравствуй Дедушка Мороз!

Меня зовут Владик и мне 10 лет. Я учусь в школе: как говорит мама, не очень хорошо, но я стараюсь.

Мама воспитывает нас с маленьким братом Никитой сама и очень устает на работе, поэтому я ей как могу. Я очень люблю гулять на улице, кататься на велосипеде и самокате, купаться на море и играть в компьютерные игры. Ты каждый год присылаешь мне подарки и всегда те, которые я и хотел тебе за это. Ребята на улице говорят, что тебя не существует, но я не верю. Подари мне на Новый год гироскутер, моему маленькому братику – самокат с божьей коровкой, а маме – хорошего мужа, папу и здоровья. Поздравляю тебя с Новым годом и желаю, чтобы ты никогда не болел и получал хорошую пенсию. До встречи в следующем году.

До свиданья! Твой Владик.

Объяснение:

{ Треугольник задан координатами вершин (x1;y1),(x2;y2),(x3;y3).

Найти площадь треугольника (используя формулу Герона) }

uses crt;

var x1,x2,x3,y1,y2,y3,a,b,c,s,p : real;

begin

clrscr;

write('x1=');readln(x1);

write('y1=');readln(y1);

write('x2=');readln(x2);

write('y2=');readln(y2);

write('x3=');readln(x3);

write('y3=');readln(y3);

a:=sqrt(sqr(x1-x2)+sqr(y1-y2));

b:=sqrt(sqr(x2-x3)+sqr(y2-y3));

c:=sqrt(sqr(x3-x1)+sqr(y1-y3));

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

write('s=',s);

readln;

end.

формула герона!

А так я думаю эти задачки очень даже не сложные, только формулы надо знать!! !

периметр- это сумма всех сторон

например

begin

writteln( 'введите 3 стороны' ) ;

readln(a,b,c);

writeln(' периметр = ',a+b+c);

readln;

end.

Вот и все!! !

Удачи!