По горизонтали:
1. Одно из формальных свойств алгоритмов
2. Обозначение ввода-вывода в блок-схемах
3. Арабскмй учёный, от имени которого произошло слово "алгоритм"
4. Отдельный шаг алгоритма
По вертикали:
5. "Алгоритм - это ... инструкций"
6. Инструкция, которая обозначается ромбом в блок-схемах
7. Операция присвоения в блок-схемах
8. Учёный, одним из первых давший определение алгоритма.
9. Графическое изображение алгоритма - это блок-...
Var
t:text;
s:string:
i,b:integer;
begin
readln(s); {ввод строки}
i:=0;
b:=pos(' ',s);
while b<>0 do
begin
inc(i);
delete(s,b,1);
b:=pos(' ',s);
end;
assign (t, 'C:\primer.txt'); {соединение с файлом primer.txt}
rewrite(t); {подготовка к записи в файл}
write(t,i); {запись в файл значение переменной "i"}
close(t); {завершение работы с файлом}
end.
Создавать файл не обязательно, программа сама его создаст.
Оцените мой ответ если это то, что Вам нужно.
Устройство для ввода информации: клавиатура
<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!
</em>begin
Writeln('x x^2 x^3');
var x:=0.1;
while x<=1.01 do begin
Writeln(x:4:2,x*x:7:3,x*x*x:10:6);
x+=0.05
end
end.
<u>Результат</u>
x x^2 x^3
0.10 0.010 0.001000
0.15 0.023 0.003375
0.20 0.040 0.008000
0.25 0.063 0.015625
0.30 0.090 0.027000
0.35 0.123 0.042875
0.40 0.160 0.064000
0.45 0.203 0.091125
0.50 0.250 0.125000
0.55 0.303 0.166375
0.60 0.360 0.216000
0.65 0.423 0.274625
0.70 0.490 0.343000
0.75 0.563 0.421875
0.80 0.640 0.512000
0.85 0.723 0.614125
0.90 0.810 0.729000
0.95 0.903 0.857375
1.00 1.000 1.000000
Настоящий вид вывода показан во вложении.