Предмет: Информатика,
автор: Alena300999
Задачи на программирование 8 класс. Решите как положено через паскаль (хотя бы некоторые) 5.11-5.14
Приложения:
Ответы
Автор ответа:
0
Сейчас все будет, все задачки, подождите!
Автор ответа:
0
program S_311;
USES CRT;
const R=6350;
var s,A,q:real; i:integer;
BEGIN
s:=0;
for i:=1 to 10 do
begin
q := 1000*i;
A:=sqrt(sqr(R + q)-sqr(R));
writeln('S = ',A:2:2);
end;
Readkey;
END.
USES CRT;
const R=6350;
var s,A,q:real; i:integer;
BEGIN
s:=0;
for i:=1 to 10 do
begin
q := 1000*i;
A:=sqrt(sqr(R + q)-sqr(R));
writeln('S = ',A:2:2);
end;
Readkey;
END.
Автор ответа:
0
Program S_510;
USES CRT;
var
k:real;
i:integer;
BEGIN
write('Введите курс: ');
Readln(k);
for i:=1 to 20 do
Writeln(i:2,i*k:1:1);
readkey;
END.
USES CRT;
var
k:real;
i:integer;
BEGIN
write('Введите курс: ');
Readln(k);
for i:=1 to 20 do
Writeln(i:2,i*k:1:1);
readkey;
END.
Автор ответа:
0
Усе :) Если что-то не понятно, спрашивай, всегда отвечу!
Автор ответа:
0
спасибо)
Похожие вопросы