Ответ:
А:=90
Объяснение:
a:=100 b:=0
Далее проверяется условие: равно ли b 5? Та как 0 не равен 5, идем по стрелке нет, то есть b:=b + 1 -> b:= 1; a:= a - 2 -> a = 98
a:=98 b:=1
возвращаемся опят к проверке условия 1 не равен 5, идем по стрелке "нет" и т.д.
Останавливаемся когда b будет равно 5
a:=96 b:=2
a:=94 b:= 3
a:=92 b:=4
a:=90 b:=5
Var
SurName : Array [1..30] of String;
Mark : Array [1..30] of Real;
Cand : Array [1..30] of String;
NPupil, K : Integer;
BEGIN
Write('Сколько всего учеников ? ');
ReadLn(NPupil);
WriteLn('Введите фамилии и оценки учеников :');
For var i := 1 to NPupil do
begin
Write(i, '. Фамилия - ');
ReadLn(SurName[i]);
Write(' Оценка - ');
ReadLn(Mark[i]);
end; WriteLn;
K:=0;
For var i := 1 to NPupil do
If Mark[i]=2 then
begin
K:=K+1;
Cand[K] := SurName[i]
end;
If K=0 then WriteLn('В КЛАССЕ НЕТ ДВОЕЧНИКОВ.')
else
begin
WriteLn('ДВОЕЧНИКИ :');
For var i := 1 to K do WriteLn( i, '. ' , Cand[i]);
end;
END.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var s:=0;
var a:=ReadInteger('Введите 1 число');
var b:=ReadInteger('Введите 2 число');
var c:=ReadInteger('Введите 3 число');
var d:=ReadInteger('Введите 4 число');
if a mod 3 =0 then s:=s+a;
if b mod 3 =0 then s:=s+b;
if c mod 3 =0 then s:=s+c;
if d mod 3 =0 then s:=s+d;
println('Сумма кратных 3 = ',s);
end.
Тестовое решение:
Введите 1 число 9
Введите 2 число 16
Введите 3 число 18
Введите 4 число 0
Сумма кратных 3 = 27
#include <iostream>
using namespace std;
int main()
{
int n,s;
for (int i=100; i<=999; i++)
{
n = i % 10;
s = n*n*n;
n = i / 10 % 10;
s = s+n*n*n;
n = i /100;
s = s+n*n*n;
if (i == s) cout << i << "\n";
}
return 0;
}
Результат:
<span>153
370
371
407</span>
Перо опустить , после этого он начнёт перемещатся выдовая чёткие контуры.