При помощи языка мы общаемся и помогает в этом нам словестные описания
Var a, b: longint;
begin
write ('введите число -> ');
readln (a);
a:=a mod 10;
b:=(a*a) mod 10;
writeln ('последняя цифра квадрата числа -> ',b);
<span>end.</span>
<span><span>1.
</span>Av¬B</span>
<span><span>2.
</span>A&BvC</span>
<span><span>3.
</span>A&B</span><span>
</span>
Решение 1-й задачи:
//PascalABC.Net
//NaaMan
var
i, n : integer;
begin
i := 0;
repeat
write('Введите число > ');
readln(n);
if (n > 0) then
if (n mod 2 = 0) then
if (n mod 3 = 0) then i := i + 1;
until (n = 0);
writeln('Количество чётных чисел, кратных 3: ', i)
end.
Для решения второй задачи нужно заменить (n mod 2 = 0) на (n mod 2 = 1) и (n mod 3 = 0) на (n mod 7 = 0).
Изучение задачи, которую нужно решить через программу
<span> 1. </span>Определение:
-исходных данных
- результат
2. алгоритм будущей программы
3. создание программы
4. тестирование("контрольные точки" рассчитываются "руками" )
5. устранение ошибок