Var
f1: text;
b, c, i: integer;
begin
randomize;
assign(f1, '6161.txt');
rewrite(f1);
for i := 1 to 100 do
begin
c := random(999)+1;
write(f1, ' ', c);
end;
close(f1);reset(f1);
b:=0;
while not EOF(f1) do
begin
read(f1, c);
if (c div 100 > 0) and (c mod 3 = 0) then b:= c;
end;
close(f1);append(f1);writeln(f1);writeln(f1);
if b <> 0 then writeln(f1, 'Число ', b, ' является трехзначным и нацело делится на 3')
else writeln(f1, 'В файле нет трехзначных чисел, которые нацело делятся на 3');
close(f1);
end.
===== PascalABC.NET =====
begin
var (y0, v0, g) := (1.0, 20.0, 9.81);
var y: real -> real := t -> y0 + v0 * t - g * t *t / 2;
foreach var t in Seq(1, 3, 4) do
Writeln(t, y(t):10:2)
end.
Var i,s: integer; a:array[1..20] of integer;
begin
s:=1;
randomize;
for i := 1 to 20 do
a[i] := random(45)-20;
for i:=1 to 20 do
begin
i:=i+1;
s:=s*i;
end;
write(s);
end.
проверяй в компиляторе, где-то накосячил
Задание 1:
Строку 1 и столбец A заполняете единицами. В ячейку B2 вводите формулу =A2+B1, затем её копируете (делаете протяжку)
Задание 2:
Строку 1 и столбец A заполняете по образцу (0 и 1). В ячейку B2 вводите формулу =A1+B1, затем её копируете (делаете протяжку)
<span>Язык Pascal, работа на массиве. с заполнением с клавиатуры. Ты заполняешь 9 элементов ( через enter ), а он тебе выводит тоже самое, только с противоположными знаками</span>
Var x: array[1..9] of integer;
Var i,h:integer;
Begin
for i:= 1 to 9 do
Begin;
Readln(h);
x[i] := -1*h;
end;
for i:=1 to 9 do
Begin;
Writeln('Элемент номер ',i,' массива: ',x[i]);
end;
readln(x);
end.