Паскаль, решите ! напишите программу, которая в последовательности натуральных чисел находит количество трехзначных чисел оканчивающихся на цифру 8. вход: программа получает на вход количество чисел, а затем сами числа. количество чисел не превышает 1000, а сами числа не превышают 30000. выход: программа должна вывести одно число – количество трехзначных чисел оканчивающихся на цифру 8.

235

439

Посмотреть ответы 2

Ответы на вопрос:

aleksandrp462

Информатика

4,5(4 оценок)

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin writeln(readseqinteger(readlninteger) .where(t-> t.between(100,999) and (t mod 10=) end. пример 5 21311348 348 321412 1080 308 8828 2

фарангиз5

Информатика

4,5(58 оценок)

X- abc ab ba n - bac \\\\\\\\\\\\\\\\\\\ var x, n: integer; a: array [1..4] of char; //пусть тут хранятся символы, 4-ый - буфер для обмена begin readln(n); for x : = 1 to 3 do a[x] : = n.tostring()[x]; //заполняем массив цифрами числа a[4] : = a[1]; a[1] : = a[2]; a[2] : = a[4]; x : = strtoint(a[1] + a[2] + a[3]); //переводим "правильный" массив в число writeln(x); end.