S=63;
1)S:=63+1=64;
x:=1+1=2;
2)S:=64+2=66;
x:=2+1=3;
3) S:=66+3=69;
x:=3+1=4;
4)S:=69+4=73;
x:=4+1=5.
Ответ: S=73
=ЕСЛИ(A1=A2;8;СУММ(A1:A2))
В конце не хватало скобки и буквы 'A' не должны быть русскими
Var a,b,c,d:integer;
begin
b:=0;
c:=0;
d:=1;
for a:=1 to 100 do begin
if (a mod 5 = 0) then b:=b+1;
if (a mod 5 = 0) then c:=a+c;
if (a mod 5 = 0) then d:=a*d;
end;
writeln('количество чисел делящихся на 5 ==> ',b);
writeln('сумма чисел делящихся на 5 ==> ',c);
writeln('произведение чисел делящихся на 5 ==> ',d);
<span>end.</span>
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
// 1 - любит мороженое, 0 - не любит.
begin
var a:= ArrRandom(10, 0,1);a.Println;
var cnt := 0;
for var i:= 0 to 9 do
if a[i] = 1 then inc(cnt);
Writeln(cnt);
end.
<u>Пример:
</u>1 1 1 0 0 0 0 1 1 1
6
Такое число(или слово) называют палиндромом.
Алгоритм работает примерно так:
1. Вводим число.
2. Считаем количество цифр в числе.
3. Создаём число, которое содержит количество нулей, равное числу цифр в вводимом числе - 1, и начинается с 1(Для числа 123321 это число будет равно 100000).
4. Теперь можно сравнивать первую и последнюю цифру.
Решение во вложении.