Procedure astSquare(n: integer);
var i, j: integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
write('*');
writeln();
end;
end;
{
Для теста:
begin
astSquare(4);
end.
Программа выведет 16 звёздочек:
****
****
****
****
}
Var n:integer;
x:real;
begin
n:=0;
x:=300000;
while x<550500 do
begin
x:=x+0.11*x;
n:=n+1;
end;
writeln(n);
readln;
end.
1.
Function Check(A : Longint) : Boolean;
Begin
If A>9 then Check:=((A mod 10)=(A div 10 mod 10)) and Check(A div 10) else Check:=True;
end;
Var N : Longint;
Begin
Readln(N);
Writeln(Check(N));
end.
int a; // Определение переменной a целочисленного типа со значением, зависящим от местонахождения в памяти(мусор)
float b; // Определение переменной b вещественного типа со значением, зависящим от местонахождения в памяти(мусор)
double c = 14.2; // Определение переменной c вещественного типа со значением 14.2(вещественный тип)
char d = 's';// Определение переменной d символьного типа со значением символьного типа
bool k = true; Определение логической переменной k(булева типа/логического типа/etc.) со значением логическим.
Данная информация справедлива для C/C++.
Блок-схема нахождения максимума в 2-мерном массиве