// PascalABC.NET 3.3, сборка 1555 от 21.10.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var a:=MatrRandom(3,8,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('Искомое произведение ', a.ElementsWithIndexes.Where(t->t[2].IsOdd).Select(t->t[0]). Aggregate(BigInteger(1),(x,y)->x*y)); end.
Получается, Леня разбил. Рассуждала так, 1. Миша разбить не мог, иначе ложью были бы 2 первые его фразы. А дальше просто. См. по указанным пунктам перед словами "ложь", "правда" :
Леня:
1. Я не виновен. 10. Ложь 2. Я даже не подходил к окну. 11. Правда - можно разбить и издалека 3. Миша знает, кто это сделал. 12. Правда. Дима:
1. Я не разбивал. 7.правда 2. С Мишей я не был знаком до школы. 6.правда 3. Это сделал Толя. 5.ложь Толя:
1. Я не виновен. З. правда 2. Это сделал Миша. 2.ложь 3. Дима врет, что я разбил. 4. Правда Миша:
1. Я не виновен. 1.Правда 2. Стекло разбил Леня. 9. ПРАВДА 3. Дима может поручиться за меня, т. к. знает меня очень давно. 8. Ложь
Выберите ВЕРНОЕ имя переменной:
name6
Program
При какого оператора в Паскаль вводится значения переменной с клавиатуры:
Read
При какого оператора в Паскаль выводится сообщение на экран:
Writeln
Выберите ВЕРНУЮ запись оператора Writeln, выводящую на экран значение переменной a:
Writeln('ответ', a):
Пользователю нужно составить программу, находящую квадрат вещественного числа. Выберите верный фрагмент программы:
Вариант 4
Пользователю нужно составить программу, находящую квадрат любого числа. Выберите верный вариант программы:
Тут из за пикселизации, я не понял
либо 1 вариант либо 2
Дан фрагмент программы. Укажите пропущенный оператор:
begin
Дан текст программы. После запуска выдает ошибку. Исправьте программу, изменив ОДНУ строку. В ответе укажите ВЕРНУЮ запись этой строки:
read (a);
Что будет напечатано в результате работы программы:
ответ 12
Что будет напечатано в результате работы программы:
2
Что будет напечатано в результате работы программы:
3