var
i,s:integer;
Begin
s:=1;
for i:= 1 to 15 do
if i mod 2=1 then s:=s*i*i;
writeln(s);
End.
Правильный ответ 3. (16;-17)
(2+6(-1-2));(-7+6(1+1+2)). Мы окажемся в точке (-16;17). А что бы вернуться в исходную нужно привать 16 по оси х и вычесть 17 по оси у.
На фото решение полное твоего задания
Program Stoimost;
var a,b,s,c :integer;
begin
writeln('Введите стоимость за минуту разговора ');
read(b );
writeln('Введите количество минут ');
read(s);
writeln('Если покупка была совершена в субботу, то введите цифру 1,если в воскресенье, то введите цифру 2, а если в другие дни, то 0 ');
read(a);
if a:=1 then
c:= b*s*0,7;
if a:=2 then
c:=b*s*0,65;
if a:=2 then
c:=b*s;
write(c);
end.
скорее всего не правильно, но попробуй
вроде Б но точно я не помню но скорее всего Б