Запишите строку букв ,про которую неверно не одно из утверждений: 1. её длина больше 7 2.её длина меньше - id186956120220123 от kntalya 23.01.2022 12:34

Question

Информатика: Запишите строку букв ,про которую неверно не одно из утверждений: 1. её длина больше 7 2.её длина меньше 5 3. в этой строке встречаются две гласные буквы стоящие рядом 4.строка начинается с гласной буквы 5в строке нет ни одной буквы а 6.в строке есть только одна из букв а, б, в

kntalya · Accepted Answer

Можно так:

Var
A,i,S:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
S:=0;
For i:= 1 to 6 do
    Begin
    S:=S + (A mod 10);
    A:=A div 10;
    End;
WriteLn('S = ',S)
End.

И так:

Var
A,S:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
S:=0;
S:=A mod 10;
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
WriteLn('S = ',S)
End.

Или так

Var
A:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
WriteLn('S = ',(A div 100000)+((A div 10000)mod 10)+((A div 1000)mod 10)+((A div 100)mod 10)+((A div 10)mod 10)+(A mod 10))
End.

MOGZ ответил