Предмет: Информатика,
автор: ljf
Счастливым билетом называют такой билет с шестизначным номером, где сумма первых трех цифр равна сумме последних трех. Т. к. билет с номером 385916 - счастливый. 3+8+5=9+1+6. От меня требуется написать программу и блок схему, которая проверяет счастливость билета? Пожалуйста, друзья, помогите. Надо сегодня сделать эту заданию.
Ответы
Автор ответа:
0
Program A1;
var
O:array[1..6] of integer;
i:integer;
begin
writeln('Vvedite chisla');
for i:=1 to 6 do begin
readln(o[i]);
end;
if o[1]+o[2]+o[3]=o[4]+o[5]+o[6] then writeln('schastliviy') else writeln('neschastliviy');
end.
var
O:array[1..6] of integer;
i:integer;
begin
writeln('Vvedite chisla');
for i:=1 to 6 do begin
readln(o[i]);
end;
if o[1]+o[2]+o[3]=o[4]+o[5]+o[6] then writeln('schastliviy') else writeln('neschastliviy');
end.
Похожие вопросы
Предмет: Математика,
автор: wwwvasilhenko1297
Предмет: Українська мова,
автор: Аноним
Предмет: Литература,
автор: kapacevicvika
Предмет: Биология,
автор: 89605099344
Предмет: Физика,
автор: slawko