Помогите срочно перевести алгоритмы на Паскаль. Очень нужно срочно
5-9 класс
|
1) Определение теплоты
Var q,i,rt:real;
Begin
Write('i='); readln(i);
Write('Rt='); readln(rt);
q:=(i*i)*rt;
Writeln('Q=',q);
End.
2) Площадь треугольника
Var s,p,a,b,c:real;
Begin
Write('A='); readln(a);
Write('B='); readln(b);
Write('C='); readln(c);
p:=(a+b+c)/2;
s:=p*(p-a)*(p-b)*(p-c);
s:=sqrt(s);
Writeln('S=',s);
End.
3)Массив
Var mas:array[1500..3700] of integer;
i,n:integer;
Begin
for i:=1500 to 3700 do begin
mas[i]:=i;
if (mas[i] mod 206 = 0) then writeln(mas[i]);
end;
end.
Другие вопросы из категории
программу, которая по номеру месяца выдает название следующего за ним месяца
(при т = 1 получаем февраль, 4 — май).
,(1000,1000),(1001,1000),(1011,110),(1100,110),((1100,111),(1011,111),(1011,10),(1001,10),(1001,11),(1010,11),(1010,100),(111,100),(111,10),(101,10),(101,11),(110,11),(110,1001),(111,1001),(111,1000),(10,1000),(10,1001),(11,1001),(11,110),(100,101)-перевести в десятичные коды.
А) цикл со счетчиком
Б) цикл с постусловием
В) цикл с предусловием
Г) цикл с рекурсией
Читайте также
вычислить периметр.
2) Последовательно вводится N целых чисел найти кол-во равных нулю.
помогите очень нужно!
В строке символов определить кол-во букв А.
Нужно составить программу на Паскале))
.
а)ночь-?-?-?-?-?-день
б)рота-?-?-?-?-?-полк
в)бант-?-?-?-?-?-коса
г)бег-?-?-?-?-?-?-?-шаг
д)море-?-?-?-?-?-?-суша
е)миг-?-?-?-?-?-?-?-век
помогите очень нужно,учительница ужасно строгая ненавидит меня помогите!
Вопросы: 1. В какое количество городов можно долететь менее чем за 4 часа? Ответ записать в ячейку H2 таблицы. 2. Какой процент от всех 5-часовых перелетов составляют 5-часовые перелеты в Египет? Ответ на этот вопрос нужно записать в ячейку H3 таблицы с точностью одного знака после запятой