Таня
Таня

помогите пожалуйста решить задачи в PascalABC

помогите пожалуйста решить задачи в PascalABC

В ведённом пятизначном числе замените наименьшую цифру девяткой.

С помощью функции Copy получите новое слово: выражение - жена. С помощью процедуры Delete получите из слова прямоугольник - руль.

С клавиатуры задано n чисел. Найдите их среднее арифметическое. Подсчитайте количество двузначных чисел.

Составьте программу, которая для натуро\ального числа k (от 1 до 100), введенного с клавиатуры, добавит в нужных случаях "градус", "градуса" или "градусов".

ВД
Вера Дунаева

1)
program abc;
var k,i,j:integer;
a:array[1..5] of integer;
begin
readln(k);
a[1]:=k div 10000;
a[2]:=(k-a[1]*10000) div 1000;
a[3]:=(k-a[1]*10000-a[2]*1000) div 100;
a[4]:=(k-a[1]*10000-a[2]*1000-a[3]*100) div 10;
a[5]:=(k-a[1]*10000-a[2]*1000-a[3]*100-a[4]*10);

j:=1;
k:=a[1];
for i:=2 to 5 do
if a < k then begin
k:=a;
j:=i;
end;
a[j]:=9;
writeln(a[1]*10000+a[2]*1000+a[3]*100+a[4]*10+a[5]);
end.

4)program abc;
var k:integer;
begin
for k:=1 to 100 do begin
if (k mod 10 = 1) and (k<>11) then writeln(k,' градус') else
if (k mod 10 = 2) and (k<>12) or (k mod 10 = 3) and (k<>13)
or (k mod 10 = 4) and (k<>14)
then writeln(k,'градуса')
else writeln(k,' градусов');
end;
end.
Остальное сам

Похожие вопросы
Помогите задачу сделать PascalABC!
Помогите решить задачи по информатике в программе PascalABC
помогите решить задачу по информатике в программе PascalABC
Реши на языке программирования PascalABC! пожалуйста
Помогите решить задачу по информатике в проге PascalABC
pascalABC ПОМОГИТЕ ПОЖАЛУЙСТА
PascalABC. помогите пожалуйста. выпускной класс нужно решить.
Помогите решить задачи в PascalABC
Помогите с олимпиадной задачей по информатике (PascalABC)
Помогите решить PascalABC