Var n:integer;
begin
writeln('Введите число');
read(n);
if (n>=1000) and (n<10000) and (n mod 5=0) then writeln('Удача');
end.
4.Основные свойства алгоритмов следующие:
1. Понятность для исполнителя — исполнитель алгоритма должен понимать, как его выполнять. Иными словами, имея алгоритм и произвольный вариант исходных данных, исполнитель должен знать, как надо действовать для выполнения этого алгоритма.
Microsoft World,
AbiWord,
<span>Notepad++.там много их :)</span>
1 шаг) Расставляем степенной ряд.
11010(2)=?(10)
1 в (4-степени) 1 в (3) 0 в (2) 1 в (1) 0 в (0)
2 шаг) Сумируем произведение цыфры числа умноженый на основание настоящей системой счистления в степени которая приписана к цифре.
0x2(0)+1x2(1)+0x2(2)+1x2(3)+1x2(4)=2+8+16=26(10)
11010(2)=26(10)
Надеюсь понятно написал...
Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=50;
Repeat
S:=S+A;
K:=K+5;
A:=A+1;
Until A>150;
WriteLn('SR = ',2*S);
WriteLn('K = ',K);
End.