// Паскаль // Программа поддерживает латиницу, кириллицу и дефисы
const // Первая буквы, англ. "a" - 65, но может быть дефис #45 first_letter = #45; // Последняя буквы, рус. "я" last_letter = #1103;
var x: string; i: integer; c: char; // Сколько раз встречает буква в слове count: array[first_letter..last_letter] of integer; begin readln(x); // Обнуляем массив for c := first_letter to last_letter do count[c] := 0; // Подсчитываем буквы в слове for i := 1 to length(x) do inc(count[x[i]]); // Выводим слово без букв, встречающихся 3 раза for i := 1 to length(x) do if count[x[i]] <> 3 then write(x[i]) end.
var b: array[1..m, 1..n] of integer; i, j, k: integer;
begin Randomize; { Инициализация массива и вывод его первоначального состояния } { Одновременно - подсчет количества интересующих элементов } k:=0; Writeln('Исходный массив'); for i := 1 to m do begin for j := 1 to n do begin b[i, j] := Random(101) - 50; Write(b[i, j]:4); if (((i mod 2)<>0) and (b[i,j]>a)) then Inc(k) end; Writeln end; { Вывод результатов } Writeln('Элементов со значением больше ',a,' в нечетных строках: ', k) end.
Объяснение:
a = int(input('Enter the number a: '))
if a%2==0 and a%8==0:
print(a)