//прога на Pascal`e {бдок-схема в файле}
var
x: int64;
begin
write ('Введите целое число: ');
readln (x);
if x<=38 then write ('Салют') else write ('y = 5x-38 = ', 5*x-38);
end.
Элекронной почтой! Звонок по телефону может отвлечь от важного дела, тк человек очень занятой, а письмо он прочтет и ответит по мере своего свободного времени.
Ответ:
сторона квадрата а =
площадь = a² = P² / 4² = P² / 16
алгоритм линейный:
1. Начало
2. Ввод значения периметра Р
3. Расчет площади S = P² / 16
4. Вывод рассчитанной площади S
5. Конец
Заметим, чтобы сгенерировать строку, нужно знать только предыдущую строку. Будет генерировать по порядку от 1 до n-ой строки.
Программа:
var
n, i: integer;
cur_str, prev_str: string;
begin
read(n);
prev_str := '';
for i := 1 to n do {Генерируем строки по порядку от 1 до n}
begin
str(i, cur_str); {Записываем в текущую строку её порядковый номер}
cur_str := prev_str + prev_str + cur_str; {Дописываем предыдущую строку два раза в начало}
prev_str := cur_str; {Записываем текущею строку вместо предудущей}
end;
writeln(cur_str);
end.
<span>а)мальчик ест арбуз - вкус
</span><span>б)девочка собирает в поле букет цветов - осязание
</span><span>в)мужчина выбирает книгу в магазине - зрение
</span><span>г)слепой человек читает книгу с использованием азбуки Брайля - осязание
</span><span>д)волк охотится за зайцем - зрение, обоняние
</span><span>е)спортсмен ныряет в воду - осязание</span>