Var sum,p,x,z:integer;
<span>begin </span>
<span>writeln('Введите трёхзначное число'); </span>
<span>read(x); </span>
<span>sum:=x mod 10 + x div 100 + x div 10 mod 10; </span>
<span>p:=(x mod 10) * (x div 100) * (x div 10 mod 10); </span>
<span>z:=(x mod 10 *100) + (x div 10 mod 10 *10) + (x div 100); </span>
<span>writeln('Сумма цифр =',sum); </span>
<span>writeln('Среднее арифметическое цифр =',sum/3); </span>
<span>writeln('Произведение цифр =',p); </span>
<span>writeln('После перестановки 1 и 3 цифр =',z); </span>
<span>end.</span>
var
a: array [1..5] of real;
i: integer;
begin
for i:= 1 to 5 do //Заполняем массив
begin
writeln('Введите ', i, ' элемент массива');
readln(a[i]);
end;
for i:= 1 to 5 do //Выводим все элементы массива
write(a[i], ' ');
writeln; //Перевод на новую строку
writeln(a[3]) //Выводим 3 элемент массива
end.
В одном каталоге не может быть двух папок или двух файлов с одинаковыми именами. В данном случае в папке USERS есть две папки PETER, чего быть не может.
А:=5
Если а<5 то с:=1
или
с:=2
//Среда Паскаль
Uses crt;
var
a, b, c, d, e: integer;
begin
writeln ('Введите числа');
readln(a,b,c,d,e);
if (a mod 2)=0 then writeln ('Ошибка ввода') else
if (b mod 2)=0 then writeln ('Ошибка ввода') else
If (c mod 2)=0 then writeln ('Ошибка ввода ') else
If (d mod 2)=0 then writeln (' Ошибка ввода ') else
If (e mod 2)=0 then writeln (' Ошибка ввода ') else
Writeln ((a+b+c+d+e) /5);
End.
