РЕБЯТ ПОМОГИТЕ ПОЖАЛУЙСТА УМОЛЯЯЯЯЮ!!!!!!!!!!!!!
3. Напишите общий вид оператора «Цикл с условием».
5. Точно и четко сформулируйте условие задачи, которая решается в данной программе:
Uses Crt;
Var N : Integer; S : Byte;
Begin
Write('Введите натуральное число: '); ReadLn(N);
S := 0;
While N <> 0 Do
Begin
S := S + N mod 10; N := N Div 10
End;
WriteLn('S = ', S : 4);
End.
6. Создайте программу на языке Turbo Pascal.
1) Дано трехзначное число. Найти сумму цифр этого числа.
2) Найти четырехзначное число, которое при деление на 133 дает остаток 125.
На этот вопрос еще никто не ответил. Напишите свой ответ или воспользуйтесь поиском:
Новые вопросы