1) var a:string; i, o: Integer; p: Real; begin readln(o); a := inttostr(o); for i := 1 to length(a) do p := p + strtoint(a[i]); if (sqr(o) = p*p*p) then writeln('true') else writeln('false'); end.
2) var a:string; i, o, p: Integer; begin readln(o); a := inttostr(o); for i := 1 to length(a) do p := p + strtoint(a[i]); if (p mod 3 = 0) then writeln('true') else writeln('false'); end.
3) var a, b, c: real; begin readln(a, b, c); if ((a = b) and (b = c)) then writeln('true') else writeln('false'); end.
8 Укажите тип переменной для выражения: ((х>=-2) и (x<=2)) Если х, то A. целый B. вещественный Если все выражение то D. логический
9 Для выражения y=(3a+b)/2 исходными данными будут... A. a,b
10 Для выражения y=(a+4b) при а=6, b=8 результат будет равен... D. 38
11 Неправильным является имя величины... C. 12авс
12 Сумма двух слагаемых а и b, деленная на сумму двух других слагаемых c и d запишется как... C. (a+b)/(c+d)
13 Имеется серия команд f:=2; f:=f*f; f:=f*f; f:=f*f. Чему равен результат? B. 256
14 Линейным называется алгоритм, в котором... A. команды выполняются одна за другой в порядке их следования
15 Строка: readln (A); выполняет... A. ввод в программу значения переменной А
16 Y:=5; какой оператор выведет надпись Y=5? A. writeln ( ' Y = ' , Y ) ;
17 а:=2; b:=8; S:=а+b; После выполненных последовательно данных трех команд переменная S принимает значение равное ... A. 10
18 S:=7; S:=23; writeln (S); Какое значение будет выведено на экран? A. 23
19 S:=1; S:=S+5: Writeln (S/2); Что будет выведено на экране? A. 3
20 A:=2; B:=5: B:=B-A; S:=A+B; writeln (S); Что будет выведено на экран? A. 5
21 Для ввода данных в блок-схемах используют фигуру... A. параллелограмм
22 Для выполнения вычислительных действий в блок-схемах используют фигуру... C. прямоугольник
23 Определите результат работы фрагмента программы: writeln ( ' 5+5= ' , 5+5 ); A. 5+5=10
24 Действие оператора WRITELN - это... A. переход на новую строку
25 Сколько переменных нужно ввести для вычисления площади и периметра квадрата? A. одну
26 Найдите логически неверно записанную последовательность команд. те что имеют непонятные логические ходы A. writeln (S); A:=A*2; readln (A,B); S:=A+B; C. A:=A*2; readln (A,B); S:=A+B; Writeln (S); D. readln (A,B); S:=A+B; A:=A*2; writeln (S); 27 Как будут выведены значения: Writeln (A); Writeln (B); ? A. в столбик
ответ: (А+В)*С+С
А+В ‐ идёт первым дальше скобках т.к. надо поставить дизъюнкцие (сложение ) первым действием