Это же так просто! Удачи, ответ во вложении. Только там в конце опечатка у меня...
Файл это можно сказать структура данных,или текст с кодом для программы а ведь программы не работают без файлов.
(Потому-что в файлах для программ содержится код)
(А когда программа запускается она требует файл с кодом)
В файле может быть текст или картинка или музыка.
Файл имеет расширении,а расширении в файле может обозначать его предназначение (допустим текст(txt) или видео с музыкой (mp3 mp4)
А программа это комбинация данных с помощью которых позволяет компьютеру что либо делать (допустим вычислять)
Так чем же отличается программа от файла , да тем что файл это часть программы.А программа можно сказать это множество скрещённых файлов.
Var
n, k, s: integer;
begin
s := 0;
k := 0;
repeat
write('Введите целое число = ');
readln(n);
if n > 0 then begin
k := k + 1;
s := s + n;
end
until n = 0;
writeln('Среднее арифметическое = ', s / k);
end.
Код в приложении.
При вставке на сайт форматирование текста исчезает.
Ответ:
var x,y,i:integer;
begin
y:=-7;
for i:=1 to 39 do
begin
x:=y+7;
writeln('y = ',y:3,' x = ',x);
y:=y+3
end
end.
var x,y:integer;
begin
y:=-7;
repeat
x:=y+7;
writeln('y = ',y:3,' x = ',x);
y:=y+3
until y>107
end.
var x,y:integer;
begin
y:=-7;
while y<=107 do
begin
x:=y+7;
writeln('y = ',y:3,' x = ',x);
y:=y+3
end
end.