Как пользоваться Поиском

поиск по сайту
логин

пароль

регистрация     
забыли пароль?

Помощь сайту

Вопросы » Информатика, Логика » Программы на Pascal ABC. Является ли билет счастливым и др.

Программы на Pascal ABC. Является ли билет счастливым и др.

создана: 07.10.2021 в 12:19
................................................

 ( +3188 ) 

:

1. Определить, является ли билет счастливым (сума первых трех цифр равна сумме последних 3-х).

В PascalABC NET  инструкция USES CRT не работает (исключите её).

Текст ниже можно скопировать и просто всавить в окно PascalABC.NET :

program bilet;

var i,x,a: integer;

var s1,s2: integer;

begin

     writeln(′vvedite 6-znach nomer′);

     readln(x);

     for i:=1 to 6 do

         begin

         a:=x mod 10 ;

         if i<=3 then s1:=s1+a

            else

            s2:=s2+a;

         x:=x div 10;

         end;

     if s1=s2 then writeln (′Yes′)

        else writeln (′no′);

        writeln(s2,′  ′, s1) ;

end.

 ( +3188 ) 
03.12.2020 11:05
Комментировать

2. Ввести 3 числа и определить среднее  из этих чисел.

По условию - числа различные.

Программа на Pascal ABC

Хочу написать ответ