написать программу, которая определит все значения длины окружности, если ее радиус изменяется в интервале [15;40] ОЧЕНЬ СРОЧНО ПОЖАЛУЙСТА
10-11 класс
|
var
i:integer;
begin
for i := 15 to 40 do
writeln('R = ', i, ' C = ', i * 2 * pi);
readln;
end.
Другие вопросы из категории
Читайте также
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
на входе и выводит сумму его цифр.
Я написал первую часть программы (без вывода суммы цифр) :
program sg3;
uses crt;
var i,a,k: integer;
begin
clrscr;
write('Введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then k:=k+1;
if k=0 then write('Простое')
else writeln('Составное');
readln;
end.
Допишите пожалуйста код, который бы выводил сумму цифр,Паскаль