1. С клавиатуры вводятся 5 чисел, напишите программу, которая выведет их сумму и среднее арифметическое.

2. Напишите программу, которая выводит кубы натуральных чисел от 0 до 10

109

402

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

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

Сашунязайка

Информатика

4,8(42 оценок)

Var a: array[0..9] of integer; s: string; i,j: integer; begin for i: =0 to 9 do a[i]: =0; write('число: '); readln(s); for i: =1 to length(s) do inc(a[ord(s[i])-48]); i: =9; while a[i]=0 do i: =i-1; j: =i; i: =0; while a[i]=0 do i: =i+1; if (chr(j+48)+chr(i+48)=s[length(s)-1]+s[length(s)]) or (chr(i+48)+chr(j+48)=s[length(s)-1]+s[length(s)]) then writeln('да') else writeln('нет'); end. число: 18245390 дачисло: 1205483нет