Язык какой? Паскаль type massive=array[1..10,1..10] of integer; var m:massive; pr:real; digit:integer; i,k:byte; flag:boolean; begin for i:=1 to 10 do for k:=1 to 10 do readln(m[i,k]); //заполнение массива
writeln('Введите границу: '); readln(digit); pr:=1; flag:=false; for i:=1 to 10 do for k:=1 to 10 do if m[i,k]>digit then begin pr:=pr*m[i,k]; //все, что больше заданного перемножаем flag:=true; end; if flag=false then writeln('Чисел больше заданного нет.') else writeln('Общее произведение: ',pr:1:0); END.
uses crt; var s:string; c:char; m:set of char; n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then begin write(c); s:=s+c; end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do begin k:=0; for i:=1 to n do if s[i]=c then k:=k+1; if k>1 then m:=m+[c]; end; if m=[] then write('Нет букв, встречающихся более 1 раза') else for c:='a' to 'z' do if c in m then write(c) end.
#include <iostream> #include <stdio.h> using namespace std;
int main(){ int y; cin>>y; y=y%12; switch (y){ case 4:{cout<<"Mouse"; break;} case 5:{cout<<"Bull";break;} case 6:{cout<<"Tiger";break;} case 7:{cout<<"Rabbit";break;} case 8:{cout<<"Dragon";break;} case 9:{cout<<"Snake";break;} case 10:{cout<<"Horse";break;} case 11:{cout<<"Goat";break;} case 0:{cout<<"Monkey";break;} case 1:{cout<<"Cock";break;} case 2:{cout<<"Dog";break;} case 3:{cout<<"Pig";break;} } cin.get(); cin.get(); return 0; }
Паскаль
type massive=array[1..10,1..10] of integer;
var m:massive;
pr:real;
digit:integer;
i,k:byte;
flag:boolean;
begin
for i:=1 to 10 do
for k:=1 to 10 do
readln(m[i,k]); //заполнение массива
writeln('Введите границу: ');
readln(digit);
pr:=1;
flag:=false;
for i:=1 to 10 do
for k:=1 to 10 do
if m[i,k]>digit then
begin
pr:=pr*m[i,k]; //все, что больше заданного перемножаем
flag:=true;
end;
if flag=false then writeln('Чисел больше заданного нет.')
else writeln('Общее произведение: ',pr:1:0);
END.