Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1705 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
2 апреля 2023 05:54
598
Написать задачи на языке 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
·
Хороший ответ
4 апреля 2023 05:54
Остались вопросы?
Еще вопросы по категории Информатика
Digital Pile-Ons - это: А) интернет-провайдер Б) название браузера В) группа людей, которая в объединяется в социальной сети для того, чтобы писать...
Сколько слов будет найдено (выделено, указано) в процессе автоматического поиска в документе MS WORD в тексте: «Далеко за отмелью, в ельнике, раздал...
Вычислите сколько байтов занимает на CD одна минута стереозаписи(частота дискретизации 44000 разрядность 16 битов) Какова максимальная продолжительнос...
Что нужно сделать что бы нарисовать "солнце"в графическом редакторе "paint".Помогите пожалуйста,и желательно чем больше пунктов тем лучше))Главное пра...
Найдите все основания систем счисления, в которых запись числа 31 оканчивается на 11. Напишите пожалуйста подробное решение...
Все предметы