//Автора кода в средневековье бы уничтожила инквизиция
//Pascal ABC.NET v3.1 сборка 1219
Program Stroka;
var S,S1 : string ;
p,k : integer ;
begin
writeln ('vvedite s');
readln(s);
p:=pos(' ', s);
while (p<>0) do
begin
S1 := copy(s,1,P);
writeln(S1);
delete (s,1,P);
P := Pos(' ',S);
inc(k);
end;
S[1]:= upcase(S[1]);
writeln(s);
writeln('Count of words=',k+1);
end.
Пример ввода:
Simple some test text
Пример вывода:
Simple
some
test
Text
Count of words=4
Вставил прогу в паскаль он сам все считает
2) 50
3) 56
4) 55
5) 243
6) 35
7) 64
Упорядочение - сортировка, разложение, разложение по порядку.
Создание - это создание, то что вы передаете другим
Решение для Pascal.
Запускаем цикл от 0 до 9 (всего 10 повторений - 10 чисел) и каждый повтор берём число n := 2*i + 1, которое будет гарантированно нечётным. Затем выводим само число и его куб
12 куриц за 12 дней снесут 12 яиц