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

Напечатайте программу для паскаля) напечатать минимальное нечетное число, большее 200, которое нацедил делится на 17

👇
Ответ:
Locko3
Locko3
04.06.2020
Var
i,j, x: integer;   
a1,a2,stop: boolean; 
Begin 
x:=200; 
stop:=true; 
while stop do   
begin     
x:=x+1;     
a1:=false;     
 a2:=true;     
 if x mod 2 = 0 then a2:=false;     
 if x mod 17 = 0 then a1:=true;     
 if a1 and a2 then stop:=false;           
end;       
writeln('x/17 = ',x);  
end.
//программа печатает число 221
4,7(57 оценок)
Открыть все ответы
Ответ:
seva116
seva116
04.06.2020

Объяснение:

<---------------------------1--------------------------->

#include <iostream>

using namespace std;

int main() {

   int a;

   cin>>a;

   if ((a/100+(a%100)/10+a%10) % 2 == 0)

       cout << "YES";

   else

       cout << "NO";

   return 0;

}

<---------------------------2--------------------------->

#include <iostream>

using namespace std;

int main() {

   int a, b, c;

   cin >> a >> b >> c;

   if (a == b || a == c || c == b)

       cout << "YES";

   else

       cout << "NO";

   return 0;

}

<---------------------------3--------------------------->

#include <iostream>

using namespace std;

int main()

{

   int a, b;

   char sing;

   cin >> a >> sing >> b;

   switch (sing)

   {

   case '*':

       cout << a * b;

       break;

   case '/':

       cout << a / b;

       break;

   case '+':

       cout << a + b;

       break;

   case '-':

       cout << a - b;

       break;

   

   default:

       cout << "ERROR";

       break;

   }

   return 0;

}


1. Дано трехзначное число N. Напечатать «Yes», если сумма его цифр является четным числом, и «No», е
1. Дано трехзначное число N. Напечатать «Yes», если сумма его цифр является четным числом, и «No», е
1. Дано трехзначное число N. Напечатать «Yes», если сумма его цифр является четным числом, и «No», е
4,6(78 оценок)
Ответ:
Const 
  sixteen: string = '0123456789ABCDEF';

function TenIn16(x: integer): string;
var  s: string;
begin 
  repeat   
  s := sixteen[x mod 16 + 1] + s;   
  x := x div 16; 
  until x = 0; 
  if length(s) = 1 then    s := '0' + s; 
  TenIn16 := s;
end;

var 
  f1, f2: text; 
  a1, a2, a3: byte;

begin 
  assign(f1, 'record.txt'); 
  reset(f1); 
  assign(f2, 'result.txt'); 
  rewrite(f2); 
  while not eof(f1) do  
  begin   
    read(f1, a1, a2, a3);   
    writeln(f2, TenIn16(a1), TenIn16(a2), TenIn16(a3)); 
  end; 
  close(f1); 
  close(f2);
end.
4,4(71 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ