М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Stall124
Stall124
13.02.2020 13:44 •  Информатика

Дано целое положительное четырехзначное число а. найти минимальную цифру среди первых трех цифр числа, а также определить: первая или вторая цифра числа четная,или обе цифры четные,или обе цифры нечетные.результаты вывесите на экран.

👇
Ответ:
volfxeniya
volfxeniya
13.02.2020
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.
4,8(62 оценок)
Открыть все ответы
Ответ:
Viktoriua25868
Viktoriua25868
13.02.2020
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;
}
4,5(5 оценок)
Ответ:
 Если бы ты был внутренне благ и чист, тогда бы ты все видел и постигал без труда. Чистое сердце проникает в тайны неба и в тайны преисподней. Каков человек внутри себя, так он и судит обо всем внешнем. Если в мире и есть какая-либо радость, обретается она в чистом сердце. А все напасти и скорби лучше всего ведомы сердцу злому. Подобно железу, которое, будучи помещенным в огонь, раскаляется и очищается от ржавчины, человек, обращающий всего себя к Богу, очищается от лености и превращается в нового человека. 
4,5(10 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ