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

Дано целое число а. если его значение а< > 0,то необходимо уменьшить его на 4. написать программу для решения этой .

👇
Ответ:
Maykaktys
Maykaktys
18.04.2022
Uses crt;
var a:integer;
begin
readln(a);
if a<>0 then a:=a-4;
writeln(a);
end.
4,7(39 оценок)
Открыть все ответы
Ответ:
Sino4ka
Sino4ka
18.04.2022
Вроде должна работать это 1 задача

uses crt;
var a,i,j,n:integer;
begin
writeln('ВВедите кол. конфет в (кг)');
read(a);
n:=0;
if a>=10 then begin n:=n+ a div 10; a:=a-(a div 10*10); end;
if (a>=5) and (a<10) then begin n:=n+ a div 5; a:=a-(a div 5*5); end;
if (a>=1) and (a<5) and (a<10) then begin n:=n+ a div 1; a:=a-(a div 1*1); end;
writeln('Общее количество коробок = ',n);
end.

2 задача
uses crt;
var a,i,j,n:integer;
begin
writeln('Введите кол. суток');
read(a);
writeln('Количество часов в ',a,' сутках = ',a*24);
writeln('Количество минут в ',a,' сутках = ',a*24*60);
writeln('Количество секунд в ',a,' сутках = ',a*24*60*60);
end.
4,4(97 оценок)
Ответ:
cleverprincess
cleverprincess
18.04.2022

#include <iostream> //подключаем библиотеку iostream

using namespace std;

int main()

{

int a, s; //объявляем целочисленные переменные a и s

cin >> a; //вводим a

s = 0; //обнуляем сумму

 while (a != 0) //цикл while, условие - a не равно нулю

 {

  s = s + a % 10; //остаток от деления числа на 10 - его последняя цифра, прибавляем ее к сумме

  a = a / 10; // убираем последнюю цифру

 }

if (s % 2 == 0) //условие - проверка на четность

{

 cout << "summa chetnaya"; //выводим когда сумма четная

}

else

{

 cout << "summa nechetnaya"; //выводим когда сумма нечетная

}

return 0;

}

4,5(100 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ