Определи ошибки в синтаксисе кода программы, представленной ниже. Что вычисляется в этой программе? a = int(input()) b = int(input)) c = int(input()) v: = a * bc S = 2 (a * b + b * c + ac) print (V, , S)
// PascalABC.NET 3.2, сборка 1482 от 12.06.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var a:=MatrRandom(3,4,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.ElementsWithIndexes.Where(z->z[0]<0); if s.Count=0 then Writeln('Нет отрицательных элементов') else begin Write('Отрицательные элементы: '); s.Select(x->Format('a[{0},{1}]',x[1]+1,x[2]+1)).Println end end.
If <условие> Then<оператор_1> Else <оператор_2>; При выполнении условия программа оператор_1,при не выполнении условия,оператор_2. Условный оператор в общем случае If <условие> Then <группа операторов 1> end Else Begin <группа операторов 2> end; Перед Else точка с запятой не ставится никогда! Пример программы Programm Example; Var A,B,C:Real; {a,b-переменные для хранения аргументов, с-результат} Begin Writeln('Введите два числа'); Readln(A,B); if A>B Then C:=A Else C:=B; Writeln('Наибольшая из чисел = ' , C); Readln; {задержка экрана} End.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(3,4,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsWithIndexes.Where(z->z[0]<0);
if s.Count=0 then Writeln('Нет отрицательных элементов')
else begin
Write('Отрицательные элементы: ');
s.Select(x->Format('a[{0},{1}]',x[1]+1,x[2]+1)).Println
end
end.
Пример
*** Исходный массив ***
-62 13 -44 78
-19 73 92 -61
47 -13 3 43
Отрицательные элементы: a[1,1] a[1,3] a[2,1] a[2,4] a[3,2]
При выполнении условия программа оператор_1,при не выполнении условия,оператор_2.
Условный оператор в общем случае
If <условие> Then
<группа операторов 1>
end
Else Begin
<группа операторов 2>
end;
Перед Else точка с запятой не ставится никогда!
Пример программы
Programm Example;
Var A,B,C:Real; {a,b-переменные для хранения аргументов, с-результат}
Begin
Writeln('Введите два числа');
Readln(A,B);
if A>B Then C:=A Else C:=B;
Writeln('Наибольшая из чисел = ' , C);
Readln; {задержка экрана}
End.