Пользователь вводит целое положительное число N, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N, сформированной следующим образом:
8 10 3 12 14 3 16 18 3 20 22 3 и т.д
Заполните массив целых чисел (длиной 8 элементов) случайными значениями от -5 до 5, выделите из него все неотрицательные числа во второй массив и выведете его на экран (если таких чисел меньше чем, его длина, то выведете только их, не обходя незаполненные ячейки)
Пользователь вводит строку произвольных символов, выделите из неё массив первых 8 строковых литералов, которые являются числами. И выведите эти числа на экран.
Например, из строки:
rew2@#$$#435tr353453t4er4
должны быть выделены подстроки:
2
435
353453
4
4
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:
1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17
ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму
Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней
program pascal_string3;
var i,amt :integer;
s : string;
begin
writeln('input string : ' );
readln( s );
amt := 0;
for i := 1 to length( s ) do
begin
if( s[i] >= '0') and ( s[i] <= '9' ) then
amt+=1;
end;
writeln( 'amount digits in string : ' , amt );
end.
