program While2;
uses PT4;
function Iter(a, b: real): integer;
begin
Result := 0;
repeat
Result += 1;
a -= b
until a < b
end;
begin
Task('While2');
var (A, B) := ReadReal2();
Write(Iter(A, B))
end.
Const n=9;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do for j:=1 to n do a[i,j]:=0;
for i:=1 to n do a[i,i]:=n div 2+n mod 2-abs(n div 2+n mod 2-i);
for i:=1 to n do begin for j:=1 to n do write(a[i,j]); writeln end
<span>end.</span>
И папка, и файл находятся на компьютере и имеют свой значок. Также любые манипуляции с папкой влияют и на файл в ней, и на папку. Они связаны.
<em>Ниже жирным шрифтом приведен код программы на Паскале. В фигурных скобках обычным шрифтом - комментарии. Можно их оставить - компилятор не сможет их прочитать и программа все равно будет работать.</em>
program printname;
var first_name, family_name : string;
i : byte;
begin
write('Введи свое имя: ');
readln(first_name);<em>{считываем имя в переменную first_name}</em>
write('Введи свою фамилию: ');
readln(family_name); {считываем фамилию в переменную family_name}
for i := 1 to 10 do writeln(family_name, ' ', first_name);<em>{В цикле for со счетчиком i изменяющимся от 1 до 10 печатаем строки с фамилией и именем через пробел}</em>
end.