Написать на языке pascal: 1. возвести число в квадрат.2. даны три числа. найти среднее арифметическое трех чисел.3. найти значение выражения y=8*x(лучше чтобы это работало на linux)
280
437
Ответы на вопрос:
ответ: компилятор pascalabc.net
1) var a,v: integer;
begin
writeln('a'); readln(a); v: =a*a;
writeln(v); end.
2) var a,b,c, v: real;
begin
writeln('a'); readln(a); writeln('b'); readln(b); writeln('c'); readln(c);
v: =(a+b+c)/3;
writeln(v); end.
3)var v,y: integer;
begin
writeln('y'); readln(y); v: =8*y;
writeln(v); end.
Популярно: Информатика
-
atexpro444ggvg22.02.2022 10:34
-
рудный116.03.2023 22:20
-
Викуся2256620.01.2023 23:23
-
laralarisa28.05.2020 02:29
-
dima10260305.03.2021 17:44
-
mindrehumor1111111.03.2023 03:06
-
saruul70819.02.2020 06:09
-
Zetexer10.10.2021 15:18
-
5733888831.05.2023 11:54
-
shapovalovalyubochka08.04.2020 08:55