Паскаль
Program Pro;
var a:integer;
begin
for a:=1 to 3 do
writeln(random(3));
end.
Машина Малина Шина Маша Молодец Лапа Молоток Риск<span>Стих</span>
1. Программа сохраняет в файл NEDELYA.txt введённые названия дней недели
program p1;
var
fl: text;
str: string;
begin
writeln('Введите названия дней недели через пробел. По окончании нажмите Enter');
assign(fl, 'C:\Users\ ...\Desktop\NEDELYA.txt');
rewrite(fl);
readln(str);
writeln(fl, str);
close(fl);
end.
2. Программа сохраняет в файл NEDELYA.txt введённые названия дней недели, добавляя в конце "Monday Tuesday Wednesday Thursday Friday Saturday Sunday"
program p2;
var
fl: text;
str: string;
begin
writeln('Введите названия дней недели. По окончании нажмите Enter');
assign(fl, 'C:\Users\ ... \Desktop\NEDELYA.txt');
rewrite(fl);
readln(str);
writeln(fl, str);
write (fl,'Monday Tuesday Wednesday Thursday Friday Saturday Sunday');
close(fl);
end.
3.Программа выводит на экран текст из файла NEDELYA.txt
program p3;
var
fl: text;
str: string;
begin
assign(fl, 'C:\Users\ ... \Desktop\NEDELYA.txt');
Reset(fl);
while not eof(fl)do begin
readln(fl,str);
writeln(str);
end;
close(fl);
end.
... заменяется правильным адресом файла
PascalABCNET
var
n, i, k: integer;
a, b: real;
begin
read(n, a);
k := 0;
for i := 1 to n do
begin
read(b);
if (b < a - 8) or (b > a + 8) then
k := k + 1;
end;
if k > 0 then
write(k)
else
write('нет');
end.
3 ГБ = 3x1024 МБ=3072 МБ
3072+800=3872 МБ