как решить ребус на стр 130

if then. в pascal abc. номер 2

writeln('__*___*_____*__');

writeln('_*____***___*__');

writeln('_*____***___*__');

writeln('__*__*_____*__');

writeln('***___***___***');

readln

end.

Должено получиться ЗЕС.

Например, 25 минут

каждого года XX века?
2)Вы приобрели котёнка.Каждый вечер вы определяете его вес с помощью весов.Как можно описать на Паскале массив,в котором будет храниться значения веса котёнка в течение месяца (например,мая)?

распределились между победителями, то мнения разошлись.

Даша сказала: "Андрей был первым, а Володя - вторым".

Галя утверждала: "Андрей был вторым, а Борис - третьим".

Лена считала: "Борис был четвертым, а Сергей - вторым".

Ася, которая была судьей на этих соревнованиях и хорошо помнила, как распределились места, сказала, что каждая из девочек сделала одно правильное и одно неправильное заявление.

Кто из мальчиков какое место занял?
Пожалуйста,если можно показать,как решалась задача)

виде линии. Чертежник может выполнять команду Сместиться на (a, b) (где a, b — целые числа), перемещаю- щую Чертежника из точки с координатами (x, y) в точку с координатами (x + a, y + b). Если чис- ла a, b положительные, значение соответствующей координаты увеличивается, если отрицательные — уменьшается. Например, если Чертежник находится в точке с координатами (5, 3), то команда Сместиться на (2, –3) переместит Чертежника в точку (7, 0). Запись Повтори k раз Команда 1, Команда 2, Команда 3 конец означает, что последовательность команд Команда 1, Команда 2, Команда 3 повторится k раз.

Чертежнику был дан для исполнения следующий алгоритм:

Повтори 4 раза Сместиться на (2, 0), Сместиться на (0, 3), Сместиться на (–2, –3) конец

Какую фигуру нарисует Чертежник?

1) треугольник

2) квадрат

3) незамкнутую ломаную линию

4) параллелограмм

что появится на экране в результате выполнения программы. Для переменной S ввести строку - 'аб2в457где245*ж'

Program z2;

uses crt;

var s:string;

k,sum,i,n:integer;

begin

readln(s);

i:=1;

repeat

val(s[i],n,k);

i:=i+2;

sum:=sum+n;

writeln(n);

until i>length(s);

writeln(sum);

readkey;

end.

2) Дано предложение. Удалить из него все буквы с