Регистрация
Ананасик20031
23.08.2021 04:47
Информатика
Есть ответ 👍

Синформатикой, 10 . 1. вводится последовательность натуральных чисел. признак окончания ввода – ноль. подсчитать количество чисел, начинающихся и оканчивающихся на одинаковую цифру (если число однозначное, то оно является и первой и последней цифрой одновременно). 2. вводится последовательность натуральных чисел. признак окончания ввода – ноль. подсчитать количество чисел, начинающихся с четной цифры. 3. вводится последовательность натуральных чисел (каждое число больше 10). признак окончания ввода – ноль. подсчитать количество чисел, начинающихся с 51. 4. вводится последовательность натуральных чисел (каждое число больше 10). признак окончания ввода – ноль. подсчитать количество чисел, оканчивающихся на 55. 5. вводится последовательность натуральных чисел. признак окончания ввода – ноль. подсчитать количество чисел, имеющих нечетное количество цифр 6. вводится последовательность натуральных чисел. признак окончания ввода – ноль. подсчитать количество чисел, имеющих четную сумму цифр.

233
299
Посмотреть ответы 1

Ответы на вопрос:

tanya150452
tanya150452
4,4(17 оценок)
Если коврики можно разрезать, то так: var a,b,c,s1,s2,k,i: integer; beginwrite('a, b, c: '); readln(a,b,c); s1: =0; for i: =1 to b do s1: =s1+a; s2: =0; for i: =1 to c do s2: =s2+c; writeln('s1 = ',s1,' s2 = ',s2); k: =0; while s1> s2 do begin k: =k+1; s1: =s1-s2; end; k: =k+1; writeln('k = ',k); end.пример: a, b, c: 4 7 3s1 = 28 s2 = 9k = 4

Популярно: Информатика