Var
choose:char;
x: real;
begin
writeln('Переводить в радианы(Р) или в градусы(Г)?');
readln(choose);
if choose = 'Р' then
begin
write('Введите градусы: ');
readln(x);
writeln('Радианы: ', x*0.017);
end
else
if choose = 'Г' then
begin
write('Введите радианы: ');
readln(x);
writeln('Градусы: ', x*57,3);
end
else
writeln('Переводить можно ТОЛЬКО в радианы(Р) или градусы(Г)!');
end.
Вроде все подробно описал, если что то не понятно пиши в комменты
Vara,b,z,x:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число равное первому');
readln(z);
a:=1;
while a<=z do
begin
x:=x+b;
a:=a+1;
end;
writeln('произведение равно = ',x)
<span> end.</span>
Наименьшее такое число равно 105 = 7·15, наибольшее — 994 = 7·142.
Получаем арифметическую прогрессию 105, 112, 119, …, 994. Разность прогрессии равна 7, а количество членов
(994−105):7 + 1 = 142−15+1 = 128.
<span>ОТВЕТ: 128.</span>
Хранение информации человек-мозг. компьютер-память