Win7: основная ос в мире создана в 2009 году. Имеет более защищенный код чем у win xp. win8; выпущена в 2012 году. была в первые приминен плиточный интерфейс, имеет синхронизацию со смартфонами на wp. win 10: доработана работа со не сенсерными экранами, имеет continoum(хз как пишется)
familumid
01.01.2021
var a, b, c, d, i, n, p: integer; x, y: real;
begin writeln('Задача 1, введите n ='); read(n); for i := 1 to n do if i mod 2 = 0 then x := x + 1 / (2 * i + 1) else x := x - 1 / (2 * i + 1); writeln('Sum = ', x);
writeln('Задача 2, введите a, b, c, d ='); read(a, b, c, d); for i := a to b do if i mod c = d then writeln(i);
writeln('Задача 3, введите n и n чисел ='); read(n); a := 0; b := 0; c := 0; for i := 1 to n do begin read(p); if p = 0 then a := a + 1 else if p < 0 then b := b + 1 else if p > 0 then c := c + 1; end; writeln(a, ' ', b, ' ', c);
writeln('Задача 5, введите x, p ,y ='); read(x, p, y); n := 0; repeat x := round(x * (100 + p)) / 100; n := n + 1; until x >= y; writeln(n, ' лет');
writeln('Задача 6, введите A, B ='); read(a, b); repeat if (a mod 2 = 0) and (a div 2 >= b) then begin writeln(a, ' : 2 = ', a div 2); a := a div 2 end else begin writeln(a, ' - 1 = ', a - 1); a := a - 1; end; until a <= b; end.
Исмагилова_Саният
01.01.2021
//Pascal ABC.NET v3.1 сборка 1172
var ar: array of integer; n, k2, k3, k4, k5, i: integer; r: real;
begin write('Сколько учеников?'); readln(n); setlength(ar, n); writeln('Введите оценки:'); for i := 0 to n - 1 do begin readln(ar[i]); case ar[i] of 2: inc(k2); 3: inc(k3); 4: inc(k4); 5: inc(k5); else writeln('Не оценка'); exit; end; end; writeln('2:', k2); writeln('3:', k3); writeln('4:', k4); writeln('5:', k5); write('Успеваемость=', (k3 + k4 + k5) / n * 100:0:1); end.
Пример ввода: Сколько учеников?6 Введите оценки: 2 2 3 4 5 5 Пример вывода: 2:2 3:1 4:1 5:2 Успеваемость=66.7
win8; выпущена в 2012 году. была в первые приминен плиточный интерфейс, имеет синхронизацию со смартфонами на wp.
win 10: доработана работа со не сенсерными экранами, имеет continoum(хз как пишется)