1 год назад

Пусть дано натуральное число n и вещественные числа a1,a2... an,которые вводятся по одному. Найти |a1-an|

Знания

Информатика

1 ответ:

Ксютик1 год назад

0 0

uses math;

var a1, an: real;

i, n: integer;

begin

read(n);

read(a1);

for i := 2 to n - 1 do read();

read(an);

writeln(abs(a1 - an));

end.

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

Python. Напишите программу, которая запрашивает у пользователя количество строк для введенного стихотворения. Дальше дает пользо

мммммммммм [6]

На скриншоте ===============================

0 0

4 года назад

Срочно надо дам 20 баллов пжееее

1narashy

Два фрагмента

Верхний и нижний подсвечены синим цветом

0 0

4 года назад

Прошу помогите)) Информатика 10-11 класс

Yanylya

1.f
2.e
3.c
4.a
5.b
6.d
7.g

0 0

3 года назад

Дан текстовый файл с именем input.txt в первой строке которого записано натуральное число N , а во второй строке N целых чисел.

Светлана Романович [732]

Если программа нужна на паскале и если считать, что числа, кратные и 100 и 11 записываются в оба файла, то программа будет такой:
var t,t1,t2,t3:text;n,a,i:integer;
begin
Assign(t,'input.txt');reset(t);
Assign(t1,'a.txt');rewrite(t1);
Assign(t2,'b.txt');rewrite(t2);
Assign(t3,'c.txt');rewrite(t3);
readln(t,n);
for i:=1 to n do
begin
read(t,a);
if a mod 100 = 0 then write(t1,a,' ');
if a mod 11 = 0 then write(t2,a,' ');
if (a mod 100<>0)and(a mod 11<>0) then write(t3,a,' ');
end;
Close(t);Close(t1);Close(t2);Close(t3);
<span>end.</span>

0 0

4 года назад

Через программы Паскаль создайте площадь круга и длину окружности.

Полина 1

Задание несколько расплывчатое, но скорее всего, подойдет такое решение:

var r,d,p: real;
begin
writeln('введите радиус');
readln(r);
d:= 2*pi*r;
p:=pi*r*r;
writeln('площадь = ',p);
writeln('длина окружности = ',d)
end.

0 0

4 года назад