Program kek;
Var a, c:integer;
Begin
c:=0;
a:=1;
While a<>0 do begin
Writeln('Вводите целые числа. Когда закончите - введите "0"');
Readln(a);
If (a>0) and (a mod 10 = 1) then do begin
c:=c+a;
end;
End;
Writeln(c);
End.
Вроде так. Нет возможности проверить.
1. Клавиатура.
2. Карлсон.
3. Винни-Пух.
4. Почтальона Печкина.
5. Улица Колокольчиков, аллея Ромашек, бульвар Васильков.
6. Новый Год, Весна, Лето, Осень, Зима.
7. Штрих-код.
8. Ход конём.
9. Мигль — инспектор полицейского управления. Ведет регистрацию правонарушений и предварительное дознание. Обладает плоским юмором.
10. В бегемота.
Короче, смотри 1 + 1 = 5 + 1 выполняется Else(В данном коде у тебя ничего не происходит), пошли по кругу, 1 + 2 = 5 + 1 снова выполняется Else, и т.д, пока не будет 1 + 5 = 5 + 1 тогда здесь уже выполняется Then, а именно число которые стоит в позиции i = 1 и j = 5 (i - это строки)(j - это столбцы) например там стоит число 20 то уже будет 21.
Ебод фотошоп,удобный интерфейс.Подходит даже для новичков.
Всё легко и понятно,темный черный цвет не светит и не режет глаз)
Мы с друзьями гуляли в ХОЛОДНОЮ И МОКРУЮ погоду!