1) узнали, что наш друг живет на 5 этаже.
2) узнали, что тот дом, в котором он живет, шестнадцати этажный.
3) узнали, что он живет во 2 подъезде.
4) узнали, что в доме 8 подъездов.
Ответ: всего мы узнали 4 информации.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (n, m):= ReadlnInteger2('n, m ->');Writeln('Сгенерированная матрица:');
var a:= MatrRandom(n,m);a.Println;
var sumEven:= 0;
var sumOdd := 0;dec(n);dec(m);
for var i:= 0 to n do
if (i+1).isEven then
sumEven:= sumEven + a.Row(i).sum
else
sumOdd := sumOdd + a.Row(i).sum;
Writeln('Cумма на четных строках -> ', sumEven);
Writeln('Cумма на нечетных строках -> ',sumOdd);
end.
<u>Пример:</u>
n, m -> 4 5
Сгенерированная матрица:
62 61 7 15 76
74 84 43 80 4
37 9 40 86 34
45 70 87 30 51
Cумма на четных строках -> 568
Cумма на нечетных строках -> 427
1)Емеля щуку поймал 2)щука ему человеческим голосом говорит 3)щука говорит емеле волшебные слова по щучему велению по моему хотению 4)Емеля пробует это на вёдрах 5)они оживают набирают воды и идут домой 6)приходят ставятся на стол,а коромысло на крючок.
Линейная структура на языке<u>Pascal</u>
Нахождение расстояния
var V,S,t:real;
begin
readln(V,t);
S:=V*t;
writeln(S);
end.
Ветвление
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('+++') else
writeln('---');
readln;
end.
Цикл
var i:integer;
begin
for i:=1 to 5 do writeln(i);
readln;
end.
125(восьм.)=1*8^2+2*8^1+5*8^0=64+16+5=85 (десятичн.)
34(восьм.)=3*8^1+4*8^0=24+4=28 (десятичн.)