Program ryazantsev; var i,p: integer; first: boolean; a: array[1..10] of integer; begin p:=1; first:=true; for i:=1 to 10 do begin writeln('Введите ',i,' элемент массива'); readln(a[i]) //Заполнение массива числами с клавиатуры end; for i:=1 to 10 do begin if (a[i] mod 5 = 0) and (a[i]>8) then begin p:=p*a[i]; first:=false end end; if first then p:=0; //Не было ни одного числа, удовлетв. нашим условиям writeln(p) end.
Uses crt; {модуль CRT, для красоты} var x,y:integer; {описание переменных} begin write('Введи трехзначное число:'); {вывод текста на экран} readln(x); {Чтение данных} write('Введи любую цифру:'); {Вывод текста на экран} readln(y); { Чтение данных } if (x<100) or (x>999) or (y<0) or (y>9) {проверка условий} then writeln('ERROR!') {Вывод текста, если условие соблюдено} else {Вариант, если в начале все числа введено верно} if (y=x div 100) or (y=x mod 10) or (y=x mod 100 div 10) then writeln ('Цифра присутствует') {Вывод текста, если условие соблюдено} else writeln ('Такой цифры нет'); { Вывод текста, если условие не соблюдено } end.
Pascal: var n,m:longint; f:boolean; begin write ('Decimal: '); readln(n); write ('Number: '); readln (m); f:=true; while (n<>0) do begin if ((n mod 10)=m) then begin f:=true; break; end; n:=n div 10; end; if f then writeln ('YES!') else writeln ('NO'); readln; end.
C++: #include <iostream> using namespace std;
int main() { int n,m; bool f = false; cout <<"Decimal: "; cin >>n; cout <<"Number: "; cin >>m; while (n!=0) { if ((n%10)==m) { f = true; break; } n/=10; } if (f) cout <<"YES!" <<endl; else cout <<"NO!" <<endl; return 0; }
var i,p: integer;
first: boolean;
a: array[1..10] of integer;
begin
p:=1; first:=true;
for i:=1 to 10 do begin
writeln('Введите ',i,' элемент массива');
readln(a[i]) //Заполнение массива числами с клавиатуры
end;
for i:=1 to 10 do begin
if (a[i] mod 5 = 0) and (a[i]>8) then begin p:=p*a[i];
first:=false
end
end;
if first then p:=0; //Не было ни одного числа, удовлетв. нашим условиям
writeln(p)
end.