По сути, решается уравнение
7х-6у=6
Решение только одно.
6 раз вперед 7
7 раз назад 6
<em><u>Блок-схема во вложении.</u></em>
var
x,y,c:double;
begin
Write('x='); Read(x);
Write('y='); Read(y);
if x=y then c:=sqr(x+y)+sin(x)
else
if (x-y)=3 then c:=(x+y)*sqr(x+y)+cos(x)
else c:=x+y+tan(x);
Write('c=',c)
end.
<em><u>Тестовое решение:</u></em>
x=0.563
y=-1.514
c=-0.319863379954563
Var a:array[1..10,1..12] of integer;
n,m,n1,n2,i,j,s1,s2:integer;
b:boolean;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do read(a[i,j]);
readln(n1,n2);
s1:=0; s2:=0; b:=true;
for j:=1 to m do
begin
s1:=s1+a[n1,j]; s2:=s2+a[n2,j];
if a[n1,j]<>a[n2,j] then b:=false;
end;
if b then write('YES, s1 = ',s1) else write('NO, s2 = ',s2);
end.
Пример:
3 4
1 2 3 4
2 3 1 4
1 2 3 4
1 3
YES, s1 = 10
//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
var
A, B: integer;
begin
readln(A, B);
// Assert((A > 0) and (A < B), 'не верные параметры'); //проверка на дурака если надо
while A <= B do
begin
writeln('Квадрат числа ', A, ' = ', A * A);
A := A + 1;
end;
end.
1,3 Мбайт=1,3*1024 Кбайта =1331,3 Кбайта≈1332 Кбайта
1,3 Мбайт =1,3*1024*1024 байта=1363148,8байт=1363149 байт