Программа на языке паскаль a=30b/4+c v=b/a это всё одна программа

Знания

Информатика

1 ответ:

shandor [3.6K]4 года назад

0 0

Так?

var c, b:integer; a, v:real;

begin

read(b,c);

a:=30*b/4+c ;

v:=b/a;

writeln(v);

end.

Читайте также

Составьте программу (QBasic) нахождения суммы и количества всех нечётных двузначных чисел

Андрей Мазунин [58]

Программа на VBA Excel
Sub pr02()
S = 0
For n = 10 To 99 
If Int(n / 2) = n / 2 Then
 Else
S = S + n
End If
 Next n
Cells(2, 2) = S
End Sub
Печатает в ячейке B2 сумму 2475

0 0

4 года назад

Прямоугольник. Зная координаты трех вершин прямоугольника на координатной плоскости, определить координаты четвертой вершины.

lucinda [340]

Const mx=3;var x4,y4,i:integer;x:Array[1..mx] of integer;y:Array[1..mx] of integer;begin
for i:=1 to 3 do beginwrite('введите x',i,' y',i);Read(x[i],y[i]);
end;x4 := x[3]; y4 := y[1];write('x4 = ',x4,'y4 = ',y4)end.

0 0

4 года назад

Написать на языке Паскаль программу для вычисления функции при любом значении х. sin 3,2+sqrt 1+x y=-------------------------- |

Esklarmonda [7]

Var
x,y:real;
begin
Write('x='); Read(x);
y:=(3.2*sin(x)+sqrt(1+x))/abs(5);
Writeln('y=',y)
end.

0 0

3 года назад

Информатика 5 класс в каких сказках или былинах используется алгаритм с ветвлением?

robert888

Пушкин. Учёный Кот
Золотая рыбка

0 0

4 года назад

Ребятки, помогите пожалуйста!

AliskaHas

4 да я знаю я это самастаятельную прохадил

0 0

4 года назад

Программа на языке паскаль a=30b/4+c v=b/a это всё одна программа​

Программа на языке паскаль a=30b/4+c v=b/a это всё одна программа