Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
3 апреля 2023 02:02
1168
Написать задачи на языке Pascal:1. Возвести число в квадрат.
2. Даны три числа. Найти среднее арифметическое трех чисел.
3. Найти значение выражения y=8*x
(лучше чтобы это работало на Linux)
1
ответ
Ответ: Компилятор 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.
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.
0
·
Хороший ответ
5 апреля 2023 02:02
Остались вопросы?
Еще вопросы по категории Информатика
Имеется текстовый документ, содержащий 20 страниц, полностью заполненных текстом таким образом, что на каждой странице ровно 30 строк по 40 символов в...
исполнитель кузнечик действует на числовой оси начальное положение. 0 СКИ вперёд 3 Назад 2 закрась кузнечик может проверять условия например чётное пр...
Какие основные функции выполняет опарационная система Как называется операционная система в вашем компьютерном классе...
Что такое принцип программного управления?...
Вопросы и задания На сервере edu.ru находится файл demo.гаг, доступ к которому осуществляется по протоколу ftp. Фрагменты адреса данного файла закод...