сервис вопросов и ответовСделайте блок схемы по этим программам ПОЖАЛУЙСТА
10-11 класс|
|
program UKD;
var
P,S,R,c:real; a,b:integer;
begin
writeln('Введите a b');
read (a); read(b);
c := sqrt(a*a+b*b);
P := a+b+c;
S := 1/2*(a*b);
R := 1/2*sqrt(a*a+b*b);
writeln('P=',P,' S=',S,' R=',R);
end.
program UKD;
var
x,i,n:integer;
y:real;
begin
writeln('Vvedite x n');
read(x);
read(n);
for i:=1 to n do
begin
if(i mod 2<>0)then
y:=y+sqrt(sin(x)/i);
end;
write(y);
end.
Снежок222
02 мая 2015 г., 23:24:39 (8 лет назад)
Hawk231997
03 мая 2015 г., 0:45:20 (8 лет назад)
напиши нормально на русском ещё напиши и всё будет ок и тпк составищь
Ответить
Другие вопросы из категории
Дан массив целых чисел из 15 элементов, заполненный случайным образом числами из промежутка [ -20, 50 ].
Удалить из него все элементы, в записи которых есть цифра 5.
Вставить число k после всех элементов, кратных своему номеру (k вводится с клавиатуры).
Поменять местами первый положительный и последний отрицательный элементы.
Ребяят, помогите пожалуйста Задача №132. Дан прямоугольник со
сторонами a и b. Сколько квадратов со стороной с можно из него вырезать.
Читайте также
СДЕЛАЙТЕ БЛОК-СХЕМУ И НАПИШИТЕ ПРОГРАММУ ДЛЯ ДАННОЙ ЗАДАЧИ:
Ввести с клавиатуры массив из 5 элементов, найти минимальный из них.
Составьте блок-схему по готовой программе.
PROGREM summa;
VAR A,S:REAL;
BEGIN
S;=0;
A:=0.2;
WHILE A<=2 DO
BEGIN
S:=S+A;
A:=A+0.1;
END;
WRITELN('СУММА=',S:15:2);
END.
1)Найти 3 совершенное число(программа+блок схемы)
2)Определить 35 простое число(программа +блок схемы)
3)Дано:трехзначное число ,определить :является ли произведение его цифр трехзначным числом(программа+блок схемы)
Вводится число, если оно больше "0", выдать сообщение- число положительное, если оно меньше "0", то число отрицательное. По этому составить программу и
блок схему. Пожалуйста. Все последние пнк отдаю
Вы находитесь на странице вопроса "Сделайте блок схемы по этим программам ПОЖАЛУЙСТА", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.