Program llllllllll;
var a, b :string;
c:integer;
begin
writeln('Введите имя');
readln(a);
writeln('Введите фамилию');
readln(b);
c:=10;
while c>0 do
begin
write(a,' ');
writeln(b);
c:=c-1;
end;
end.
#include <iostream>
#include <math.h>
#include <string>
using namespace std;
int main()
{
int x;
float y;
cout << "x :";
cin >> x;
if (x > 0){
y = 1 / (pow(x,2)) - 6;
}
else{
y = pow(x,2)-x-9;
}
cout << "y: " << y << endl;
}
Var n:integer;
begin
write('Введите двузначное число='); readln(n);
if n mod ((n mod 10)+(n div 10))=0 then Writeln('да, делится')
else Writeln('нет, не делится');
end.
//PascalABC.Net 3.2
procedure swap (var a1, a2: integer);
begin
var promt:=a1;
a1:=a2;
a2:=promt;
end;
begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger ('Размерность : '));
var i:=-1;
while (i+2)<length (a) do
begin
i+=2;
swap (a[i], a[i-1]);
end;
a.Print;
end.
И папка, и файл находятся на компьютере и имеют свой значок. Также любые манипуляции с папкой влияют и на файл в ней, и на папку. Они связаны.