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

Сциклов вывести на экран номера всех "счастливых" билетов из диапазона 000000 до 999999

👇
Ответ:

var

 i1,i2,i3,i4,i5,i6:Longint;

begin

 For i1:=0 to 9 do

 For i2:=0 to 9 do

 For i3:=0 to 9 do

 For i4:=0 to 9 do

 For i5:=0 to 9 do

 For i6:=0 to 9 do

     if i1+i2+i3=i4+i5+i6 then Writeln(i1,i2,i3,i4,i5,i6);

end.

4,5(45 оценок)
Ответ:
chelsi09
chelsi09
08.11.2021

var
i1,i2,i3,i4,i5,i6:Longint;
begin
For i1:=0 to 9 do
For i2:=0 to 9 do
For i3:=0 to 9 do
For i4:=0 to 9 do
For i5:=0 to 9 do
For i6:=0 to 9 do
if i1+i2+i3=i4+i5+i6 then Writeln('счастливый билет':i1,i2,i3,i4,i5,i6);
Writeln('все миллионеры :D')
end.

4,4(32 оценок)
Открыть все ответы
Ответ:
рома1341
рома1341
08.11.2021
2.
var n,s,i:integer;
begin
writeln ('Программа, которая вычисляет сумму нечетных чисел от 11 и до n, задаваемого клавиатуры (n>11)');
write ('Введите n: ');
readln (n);
for i:=11 to n do
if i mod 2 = 1 then s:=s+i;
writeln ('Сумма нечетных чисел от 11 до ',n,' равна ',s)
end.

1.
var a,b:real;
begin
writeln ('Программа для решения уравнения ax=b');
write ('Введите a и b: ');
readln (a,b);
if (a=0) and (b=0) then writeln ('x - любое число')
else if (a=0) and (b<>0) then writeln ('решений нет')
else writeln ('x = ',b/a)
end.
4,4(97 оценок)
Ответ:
Катрин703
Катрин703
08.11.2021
Компьютерная и магнитно-резонансная томография - томографический метод исследования внутренних органов и тканей

Ультразвуковое исследование (УЗИ) - исследование органов и тканей с ультразвуковых волн.

Электронная очередь – это программно-аппаратный комплекс, позволяющий формализовать и оптимизировать управление потоком посетителей. Главная цель системы электронной очереди — целенаправленное направление посетителей внутри организации и получение информации о наиболее востребованных услугах, время их оказания и др.
4,6(9 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ