Shift+Alt как современные дети не могут это знать
Непонятна последняя фраза в задании, но тем не менее - вот вариант решения:
В ячейку А1 вводим цену в рублях
В ячейку А4 вводим формулу <em>=A1/A10</em>
В ячейку А6 вводим формулу <em>=A1/A11</em>
В ячейку А10 вводим курс доллара к рублю (сколько рублей стоит 1 доллар)
В ячейку А11 вводим курс евро к рублю (сколько рублей стоит 1 евро)
Украшаем это всё рамками и надписями с пояснениями :)
Теперь, если курс изменился, меняем его в ячейке А10 или А11 - и в ячейках А4 и А6 получаем текущую цену в валюте.
Var summa,count,numb :integer;
begin
summa:=0;
count:=0;
readln(numb);
while numb <> 0 do
begin
if numb mod 17 = 0 then
begin
summa:=summa+numb;
count:=count+1;
end;
readln(numb);
end;
if (summa > 0) and (count > 0) then
writeln(summa,' ',count)
else
writeln('No');
end.<span>
</span>
Pascal
read(A) {Ввод А}
А:=А*А;
А:=А*А;
write(A) {Вывод А}