Что будет выведено на экран в результате работы следующего цикла? k=3 while k< 86: print( k, end=" ") k += 1 - k= 2 while k <= 5: print( k*k, end= " ") k += 1
Код ужасно кривой, но рабочий (надеюсь, принцип понятен): 1. Бензин type Benzin=class public money:double; m:integer;
end; var b:Benzin;
begin b:=new Benzin; b.m:=0; b.money:=20; while b.money<22.0 do begin b.money:=b.money*1.02; b.m:=b.m+1; writeln('Сейчас бензин стоит: ',b.money); writeln('Сейчас месяц end;
end.
2. Вклад type biznes=class public money:double; m:integer; time:integer;
end; var b:biznes;
begin b:=new biznes; writeln('Напишите сумму рублей: '); read(b.money); writeln('Напишите кол-во месяцев: '); read(b.m); b.time:=0; while b.time<b.m do begin b.money:=b.money*1.03; b.time:=b.time+1; writeln('Сейчас сумма: ',b.money); месяц: ',b.time); end;
end.
3. Тренировки type sport=class public first:double; day:integer; first2:double; first3:double; first4:double; first5:double; first6:double; first7:double; answer:double;
end; var s:sport;
begin s:=new sport; s.first:=5; s.day:=1;
while s.day=1 do begin s.first2:=s.first*1.20; s.day:=s.day+1; writeln('Сейчас бегает: ',s.first2); writeln('День: ',s.day); end; while s.day=2 do begin s.first3:=s.first2*1.20; s.day:=s.day+1; writeln('Сейчас бегает: ',s.first3); writeln('День: ',s.day); end; while s.day=3 do begin s.first4:=s.first3*1.20; s.day:=s.day+1; writeln('Сейчас бегает: ',s.first4); writeln('День: ',s.day); end; while s.day=4 do begin s.first5:=s.first4*1.20; s.day:=s.day+1; writeln('Сейчас бегает: ',s.first5); writeln('День: ',s.day); end; while s.day=5 do begin s.first6:=s.first5*1.20; s.day:=s.day+1; writeln('Сейчас бегает: ',s.first6); writeln('День: ',s.day); end; while s.day=6 do begin s.first7:=s.first6*1.20; s.day:=s.day+1; writeln('Сейчас бегает: ',s.first7); writeln('День: ',s.day); end; while s.day=7 do begin s.answer:=s.first+s.first2+s.first3+s.first4+s.first5+s.first6+s.first7; s.day:=s.day+1; writeln('ответ: ',s.answer); end;
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) function Transpose(a: array[,] of integer): array[,] of integer; //Поворот на 90гр по часовой стрелке begin var m := Length(a, 0); var n := Length(a, 1); Result := new integer[n, m]; for var i := 0 to n-1 do begin for var j := 0 to m-1 do Result[i, j] := a[m-1-j, i]; end; end;
begin var n := ReadInteger('Введите n:'); //Заполнение матрицы NxN сл. числами и вывод на экран var a :=MatrixRandom(n, n); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(a[i,j]); println; end; println;
Println('поворот влево на 90 гр'); var b := Transpose(a); b:=Transpose(b); b:=Transpose(b); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(b[i,j]); println; end; println;
Println('поворот вправо на 90гр'); b := Transpose(a); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(b[i,j]); println; end; println;
Println('поворот на 180 гр'); b := Transpose(a); b := Transpose(b); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(b[i,j]); println; end; end.
отметь как лучший ответ
Объяснение:
1) числа от 3 до 85 через пробел
2) 4 9 16 25