<span>Волк - полк - пола - поза - коза
<span>Волк-воля-Коля-кола-коза</span></span>
Алг массив
нач
цел N = 15
целтаб a[1:N]
цел i
нц для i от 1 до N
a[i] := irnd(0,100)
вывод a[i], " "
кц
вывод нс
a[2] := 0
a[14] := 0
нц для i от 1 до N
вывод a[i], " "
кц
кон
S := exp(ln(-sqrt(156,374) * ln(n)) * 1/3)
1) 1 + 3 = 4 (2)
2) 4 * 2 = 8 (1)
3) 8 + 3 = 11 (2)
4) 11 * 2 = 22 (1)
5) 22 * 2 = 44 (1)
Ровно 5 команд.
Ответ: 21211
1. Программа сохраняет в файл NEDELYA.txt введённые названия дней недели
program p1;
var
fl: text;
str: string;
begin
writeln('Введите названия дней недели через пробел. По окончании нажмите Enter');
assign(fl, 'C:\Users\ ...\Desktop\NEDELYA.txt');
rewrite(fl);
readln(str);
writeln(fl, str);
close(fl);
end.
2. Программа сохраняет в файл NEDELYA.txt введённые названия дней недели, добавляя в конце "Monday Tuesday Wednesday Thursday Friday Saturday Sunday"
program p2;
var
fl: text;
str: string;
begin
writeln('Введите названия дней недели. По окончании нажмите Enter');
assign(fl, 'C:\Users\ ... \Desktop\NEDELYA.txt');
rewrite(fl);
readln(str);
writeln(fl, str);
write (fl,'Monday Tuesday Wednesday Thursday Friday Saturday Sunday');
close(fl);
end.
3.Программа выводит на экран текст из файла NEDELYA.txt
program p3;
var
fl: text;
str: string;
begin
assign(fl, 'C:\Users\ ... \Desktop\NEDELYA.txt');
Reset(fl);
while not eof(fl)do begin
readln(fl,str);
writeln(str);
end;
close(fl);
end.
... заменяется правильным адресом файла
PascalABCNET