Единственная надежда на ! 3-1 после выполнения фрагмента алгоритма переменная a приняла значение 8. - id274574920201012 от mellll12345 12.10.2020 19:22

Question

Информатика: Единственная надежда на ! 3-1 после выполнения фрагмента алгоритма переменная a приняла значение 8. определить минимальное целое n, при котором это возможно. a: =0; i: =1; while i 0)then x: =x+1; end; x: =x*x-2*x+1; поиск ошибок в программе. найти и исправить ошибки в программе. 4-1 program z; var n,m: char; beginwrite(n - ); readln(m)m: =1; while sqr(m) =n do m: =m+1; writeln(m); end 4-2 program д; beginvar i,n,k,a: integer; readln(n); k: =0; for i: =1 to n doreadln(a); if a 0 then k: =k+1; end;

mellll12345 · Accepted Answer

//Задача 1 begin  var a := ArrRandom(20, -20, 20).Println;  Println(a.Min, , a.Max); end.//Задача 2 begin  var a := ReadArrInteger(10);  a.Where(p - p.IsOdd).Count.Println; end.//Задача 3 begin  SeqGen(90, 10, x - x + 1).Where(x - x mod 3 = 0).Println; end.//Задача 4 begin  ArrRandom(10,-20,20).Println; end.//Задача 5begin  var (a, b) := ReadInteger2;  Range(a, b).Product.Println end.//Задача 4 var  n, i, sum, count: integer; begin  Writeln( Введите число: );  Readln(n);  count := 0;  while n 0...

MOGZ ответил