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.
Вроде так. Нет возможности проверить.
Задание 4
ответ 4 т.к известно что он поднялся два раза вверх и 3 раза вниз
1)запрещается трогать проводы,вилки
2)нельзя трогать компьютер мокрыми руками
3)нельзя включать интернет без разришения учитиля
4)если на компьютере появилось неизвесное вам окно предупредить учителя.
5)не знаю придумай сама(сам)
=)
У тебя не видно адресов ячеек, поэтому попробую так объяснить:
В ту ячейку, где высвечивается цена в руб. вбей формулу
=цена в долларах * на курс доллара,
при этом на курс доллара надо сделать абсолютную ссылку, чтобы ее значение не менялось при протягивании формулы вниз. Надо поставить знак $ в адрес ячейки, например, $D$1. Это можно сделать при помощи клавиши F4
Как я понял, то:
1. Используем SUMIF(СУММЕСЛИ), указываем диапазон суммирования, и условие для суммирования.
2. Находим минимальное значение среди всех этих сумм.