В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
stetcenko87
stetcenko87
19.05.2023 15:43 •  Информатика

ТЕСТ Цикл з передумовою В яких із наведених операторів циклу тіло циклу не виконається жодного разу? так ні Х:=5; Whіle Х <5 do X := X+1; Х := 10; Whіle Х <= 10 do X := X+1; For A := 10 To 0 Do S = S + A; Х:=5; Whіle Х <5 do X := X+1; Х := 10; Whіle Х <= 10 do X := X+1; For A := 10 To 0 Do S = S + A; Визначте, які оператори реалізують дію:Знайти суму перших десяти натуральних чисел так ні Whіle A<10 do begin A:=A+1; S:=S+A end; For A:=1 To 10 do S:=S+A; If A < 10 Then begin A:=A+1; S:=S+A end; Whіle A<10 do begin A:=A+1; S:=S+A end; For A:=1 To 10 do S:=S+A; If A < 10 Then begin A:=A+1; S:=S+A end; Cкільки буде повторень циклу, якщо початкове значення А=13 While А > 9 do А:= А-1; У якому випадку відбудеться зациклювання? так ні N := 0; While N < 20 do N:=N-1; N := 0; While N < 20 do N:=N+1; N := 0; While N < 20 do F:=F+1; N := 0; While N < 20 do N:=N-1; N := 0; While N < 20 do N:=N+1; N := 0; While N < 20 do F:=F+1;

Показать ответ
Ответ:
ART666999
ART666999
01.01.2020 18:38
Program z1; var s, s1, s2, s3, s4, s5, s6, s7, s8:string; begin s:='программа'; s1:=copy (s, 4, 4); s4:=copy (s, 2, 3); s5:=copy (s, 2, 1); s2:=s4+s5; s6:=copy (s, 4, 1); s7:=copy (s, 3, 1); s8:=copy (s, 5, 2); s3:=s6+s7+s8; writeln (s1, s2, s3); end. Посмотри, это пункт а. Если то, что нужно, сделаю остальные.. Program z1; var s, s1, s2, s3, st, o, l, be, c: string; begin s1:='страх'; s2:='белка'; s3:='цыпленок'; st:=copy (s1, 1, 2); o:=copy (s3, 7, 1); l:=copy (s2, 3, 1); be:=copy (s2, 1, 2); c:=copy (s3, 1, 1); s:=st+o+l+be+c; writeln (s); end.
0,0(0 оценок)
Ответ:
Gumerova0424
Gumerova0424
04.12.2022 16:24
// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив 9x6 ***');
  var a:=MatrRandom(9,6,-50,50); a.Println(4);
  Writeln(4*a.ColCount*'-');
  var kn:=a.Rows.SelectMany(x->x).Where(x->x<0).Count;
  var kp:=a.Rows.SelectMany(x->x).Where(x->x>0).Count;
  Writeln(kn,' отрицательных, ',kp,' положительных')
end.

Пример
*** Исходный массив 9x6 ***
 -47  37  23 -34 -33   0
 -17  -5  13  -9   0 -46
 -41  31  41 -30 -24  49
  39  50  13   4  19  14
 -17 -12 -24  22  -9 -44
 -27  17 -44 -35  -4  32
  26  -5  49  -7 -28 -25
 -15  -9  13  25 -26 -29
 -40 -24  -4  50  33 -45

31 отрицательных, 21 положительных
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота