<span> логическая процедура придания строго фиксированного смысла терминам языка.</span>
<u>Задание 1)</u>
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var fam:=ReadlnString('Фамилия:');
var nam:=ReadlnString('имя:');
var otch:=ReadlnString('отчество:');
var fio:=fam+' '+nam+' '+otch;
Writeln(fio,', длина текста- ',fio.Length)
end.
<u><em>Тестовое решение</em></u>
Фамилия: Иванов
имя: Сергей
отчество: Петрович
Иванов Сергей Петрович, длина текста- 22
<u>Задание 3)</u>
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var w:='ИНТЕГРАЛ';
Writeln(w[5]+w[7]+w[2:5]+w[8]+w[1]);
Writeln(w[6]+w[4]+w[2:4]+w[5:3:-1]+w[2]);
Writeln(w[3]+w[1]+w[5:7]);
Writeln(w[7]+w[5:3:-1]+w[2:4]);
Writeln(w[6:]+w[8]+w[1]);
Writeln(w[1]+w[5:8]);
Writeln(w[2::-1]+w[3]+w[6:8]+w[3])
end.
<u><em>Решение:</em></u>
ГАНТЕЛИ
РЕНТГЕН
ТИГР
АГЕНТ
РАЛЛИ
ИГРА
НИТРАТ
Program n_1;
var s, m: real; n:integer;
begin
read(s);
n:=0; m:=s;
while (m<=1.5*s) do begin
m:=m*1.03;
n:=n+1;
end;
writeln(n);
end.
Честно говоря, решение тут вообще не зависит от S. Всегда выводится одно и то же число - 14
40 строк *60 символов = 2400 символов на одной странице
8 бит = 1 байт
16 Гб= 16* 1024 Мб= 16*1024*1024 кб=16*1024*1024*1024 байт = 17179869184 байта
17179869184 / 2400 = 715878,8 страниц
715878,8 /100 =71583 см
Кажется, так.
Подробнее - на Znanija.com - znanija.com/task/8906879#readmore
Провайдер
=============================================