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

Составьте алгоритм и напишите программу для того чтобы выяснить является ли введённое шестизначное число счастливым суперсчастливым или обыкновенным. шестизначное число называют счастливым если сумма первых трёх его цифр равна сумме трёх последних цифр. число будет называться суперсчастливым если оно во-первых счастливое а во-вторых сумма первых трёх его чисел равна 11 или 22

👇
Ответ:
ehidna666
ehidna666
07.08.2022
Var n:longint;
c1,c2:byte;
s:boolean;
begin
s:=false
readln(n);
c1:=(n mod 10)+((n div 10) mod 10)+((n div 100) mod 10);
c2:=((n div 1000) mod 10) + ((n div 10000) mod 10) + ((n div 100000) mod 10);
if c1=c2 then s:=true;
if s and ((c2=11) or (c2=22)) then writeln('supershastlivoe') else
if s then writeln('shaslivoe') else writeln('prostoe');
end.
4,4(52 оценок)
Открыть все ответы
Ответ:
Colnkor
Colnkor
07.08.2022

1)

Function check7(a As Range) As Integer

Dim r As Range

Dim i As Integer

For Each r In a

i = i + 1 - Sgn((Abs(r) + 3) Mod 10)

Next

check7 = i

End Function

Excel VBA

2)

А что здесь программировать-то?

Задача сводится к с следующей: Дано два ящика и 7 мячиков. Сколькими можно разместить эти 7 мячиков в этих двух ящиках?

Бросаем все мячики в первый ящик (это первое размещение), затем перекладываем по одному мячика из первого ящика во второй.

Получаем варианты:

7|0

6|1

5|2

4|3

3|4

2|5

1|6

Итого 7 вариантов (варианта 0|7 быть не может, поскольку двузначное число с нуля не начинается).

В общем-то и без вычислений всем очевидно, что разместить 7 мячиков в двух ящиков ровно 7.

Что должна вычислять программа?

4,4(100 оценок)
Ответ:
gerrr009
gerrr009
07.08.2022
Программа 1.
program p1;
var x:integer;
begin
write ('x=');
read (x);
if x>0 then
writeln ('Число x положительное.');
if x=0 then
writeln ('Число x нейтральное.');
if x<0 then
writeln ('Число x отрицательное');end.
Программа 2.
program p2;
var x,y,z,s:real;
begin
write ('x=');
read (x);
write ('y=');
read (y);
write ('z=');
read (z);
if x>0 then
s:=s+x;
if y>0 then
s:=s+y;
if z>0 then
s:=s+z;
if x+y+z<=0 then
writeln ('Все числа отрицательные либо нейтральные. Операция невозможна.');
if x+y+z>0 then
writeln ('s=', s);
end.
4,5(9 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ