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

Напишите программу, выводящую true, если высказывание является истинным, и false в противном случае для утверждения: «сумма цифр трехзначного числа х является четным числом». значение числа х вводится с клавиатуры.

👇
Ответ:
nek2017pro
nek2017pro
22.03.2020
Var x:integer;
begin
writeln('Введите чилос x: ');
readln(x);
  if x>= 100 then
      if (not odd(x)) then
          writeln('TRUE')
        else
          writeln('FALSE')
        else
         writeln('Число не трехзначное');
 end.

Надеюсь правильно понял тебя и составил программу верно.
4,7(58 оценок)
Открыть все ответы
Ответ:
milkovvich
milkovvich
22.03.2020

from tkinter import *

import random

import time

def move(event):

   if event.keysym == 'Up':

       canvas.move(p, 0, -3)

   elif event.keysym == 'Down':

       canvas.move(p, 0, 3)

   elif event.keysym == 'Left':

       canvas.move(p, -3, 0)

   elif event.keysym == 'Right':

       canvas.move(p, 3, 0)

def mainloop():

   while 1:

       canvas.move(c, random.randint(-6, 6), random.randint(-6, 6))

       tk.update_idletasks()

       tk.update()

       time.sleep(0.01)

colors=['black', 'white', 'red', 'yellow', 'blue', 'purple']

tk=Tk()

tk.geometry('400x400')

canvas=Canvas (tk, width=400, height=400)

canvas.pack(fill='both', expand=True)

p=canvas.create_rectangle(10, 10, 70, 150, fill=random.choice(colors), outline=random.choice(colors))

c=canvas.create_oval(190, 190, 210, 210, fill=random.choice(colors), outline=random.choice(colors))

canvas.bind_all('<KeyPress-Up>', move)

canvas.bind_all('<KeyPress-Down>', move)

canvas.bind_all('<KeyPress-Left>', move)

canvas.bind_all('<KeyPress-Right>', move)

mainloop()

Объяснение:

4,7(7 оценок)
Ответ:
Стариат
Стариат
22.03.2020
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var (cost, t, k) := (Arr(15, 70, 125, 230, 440), Arr(1, 5, 10, 20, 60), new integer[5]);
  var n := ReadInteger('n->');
  for var i := 4 downto 0 do
  begin
    k[i] := n div t[i];n := n mod t[i];
  end; 
  if k[0] * cost[0] >= cost[1] then begin k[0] := 0;inc(k[1]); end;
  if k[0] * cost[0] + k[1] * cost[1] >= cost[2] then 
  begin
    k[0] := 0;k[1] := 0;inc(k[2]); 
  end;
  if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] >= cost[3] then 
  begin
    k[0] := 0;k[1] := 0;k[2] := 0;inc(k[3]);
  end;
  if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] + k[3] * cost[3] >= cost[4] then 
  begin
    k[0] := 0;k[1] := 0;k[2] := 0;k[3] := 0;inc(k[4]); 
  end;
  
  for var i := 0 to 4 do WritelnFormat('{0} билет(ов)- {1} штук(а)', t[i], k[i]);
end.

Пример(1):
n-> 37
1 билет(ов)- 0 штук(а)
5 билет(ов)- 0 штук(а)
10 билет(ов)- 0 штук(а)
20 билет(ов)- 0 штук(а)
60 билет(ов)- 1 штук(а)

Пример(2):
n-> 35
1 билет(ов)- 0 штук(а)
5 билет(ов)- 1 штук(а)
10 билет(ов)- 1 штук(а)
20 билет(ов)- 1 штук(а)
60 билет(ов)- 0 штук(а)
4,7(10 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ