Дано целое положительное четырехзначное число а. найти минимальную цифру среди первых трех цифр числа, а также определить: первая или вторая цифра числа четная,или обе цифры четные,или обе цифры нечетные.результаты вывесите на экран.
Uses crt; label goback; var a,b,c,d,e,f:integer; begin goback: write('Введите число: ');read(a); if (a<1000) or (a>9999) then begin writeln('Введите четырехзначное число.'); goto goback; end; b:=a div 1000; c:=a div 100 mod 10; d:=a div 10 mod 10; if (b=c) and (c=d) then begin writeln('Первые 3 цифры равны.'); end; if (b=c) and (c>d) then begin writeln(d,' - Наименьшая цифра из первых 3 цифр.');end; if (d=b) and (b>c) then begin writeln(c,' - Наименьшая цифра из первых 3 цифр.');end; if (c=d) and (d>b) then begin writeln(b,' - Наименьшая цифра из первых 3 цифр.');end; if (b>c) and (c>d) and (b>d) then begin writeln(d,' - Наименьшая цифра из первых 3 цифр.');end; if (c>d) and (d>b) and (c>b) then begin writeln(b,' - Наименьшая цифра из первых 3 цифр.');end; if (b>d) and (d>c) and (b>c) then begin writeln(c,' - Наименьшая цифра из первых 3 цифр.');end; if (b mod 2 = 0) then begin writeln('Первая цифра четная'); end;if (c mod 2 = 0) then begin writeln('Вторая цифра четная');end; if (b mod 2 = 0) and (c mod 2 = 0) then begin writeln('И первая и вторая цифра четная'); end; if (b mod 2 = 1) and (c mod 2 = 1) then begin writeln('И первая и вторая цифра не четная');end; End.
Pascal: var a:array [1..30] of integer; i:integer; p:longint; begin p:=1; randomize; a[1]:=random(21)+50; for i:=2 to 29 do a[i]:=random(100); a[30]:=random(21)+50; for i:=1 to 30 do write (a[i],' '); writeln; for i:=1 to 30 do if (a[i] in [10..99]) and (a[i] mod 2 = 0) and ((a[i] div 10) in [5..7]) then p:=p*a[i]; writeln ('Proizvedenie: ',p); readln; end.
C++: #include <iostream> #include <ctime> #include <cstdlib> using namespace std;
int main() { int a[30],i; unsigned long long p = 1; srand (time(NULL)); a[0] = rand()%70+50; for (i = 1; i<29; i++) a[i] = rand()%100; a[29] = rand()%7+50; for (i = 0; i<30; i++) { cout <<a[i] <<" "; if ((a[i]/10==5 || a[i]/10==6 || a[i]/10==7) && (a[i]>9 && a[i]<100) && a[i]%2==0) p*=a[i]; } cout <<endl; cout <<"Proizvedenie: " <<p <<endl; return 0; }
Если бы ты был внутренне благ и чист, тогда бы ты все видел и постигал без труда. Чистое сердце проникает в тайны неба и в тайны преисподней. Каков человек внутри себя, так он и судит обо всем внешнем. Если в мире и есть какая-либо радость, обретается она в чистом сердце. А все напасти и скорби лучше всего ведомы сердцу злому. Подобно железу, которое, будучи помещенным в огонь, раскаляется и очищается от ржавчины, человек, обращающий всего себя к Богу, очищается от лености и превращается в нового человека.
label goback;
var
a,b,c,d,e,f:integer;
begin
goback:
write('Введите число: ');read(a);
if (a<1000) or (a>9999) then
begin
writeln('Введите четырехзначное число.');
goto goback;
end;
b:=a div 1000;
c:=a div 100 mod 10;
d:=a div 10 mod 10;
if (b=c) and (c=d) then begin writeln('Первые 3 цифры равны.'); end;
if (b=c) and (c>d) then begin writeln(d,' - Наименьшая цифра из первых 3 цифр.');end;
if (d=b) and (b>c) then begin writeln(c,' - Наименьшая цифра из первых 3 цифр.');end;
if (c=d) and (d>b) then begin writeln(b,' - Наименьшая цифра из первых 3 цифр.');end;
if (b>c) and (c>d) and (b>d) then begin writeln(d,' - Наименьшая цифра из первых 3 цифр.');end;
if (c>d) and (d>b) and (c>b) then begin writeln(b,' - Наименьшая цифра из первых 3 цифр.');end;
if (b>d) and (d>c) and (b>c) then begin writeln(c,' - Наименьшая цифра из первых 3 цифр.');end;
if (b mod 2 = 0) then begin writeln('Первая цифра четная'); end;if (c mod 2 = 0) then begin writeln('Вторая цифра четная');end;
if (b mod 2 = 0) and (c mod 2 = 0) then begin writeln('И первая и вторая цифра четная'); end;
if (b mod 2 = 1) and (c mod 2 = 1) then begin writeln('И первая и вторая цифра не четная');end;
End.