var
a: 1000..9999; //Четырехзначное число
a1, a2, a3, a4: 1..9;
begin
writeln('Введите четырехзначное число');
readln(a);
a1:= a mod 10; //Первая с конца цифра
a2:= (a mod 100) div 10; //Вторая с конца цифра
a3:= (a mod 1000) div 100; //Третья с конца цифра
a4:= a div 1000; //Четвертая с конца цифра
writeln('Сумма цифр данного числа: ', a1 + a2 + a3 + a4); //Сумма цифр
end.
Var
n, x, k, i:integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
readln(x);
if x mod 10 =6 then
inc(k);
end;
writeln(k);
end.
А) GPS-навигатор
б) сиди диск.
в) накопитель
г) светодиод
могу ошибаться, но может так)
Ам, ну там сверху есть "выравнивалки"
Попробуй поэкспериментировать с полосками ("выравнивалками")