<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var y:=ReadReal('y=');
var x:=(y-16)/10;
Writeln('При y=',y,', x=',x)
end.
<u>Пример</u>
y= 4.17
При y=4.17, x=-1.183
Ответ:
Объяснение:арточки мистера Фокса У мистера Фокса есть карточки, на каждой стороне которых нарисована или машина или какой-то зверь. Карточек, на которых есть животное (хотя бы с одной стороны) — десять, карточек, на которых есть машина (хотя бы с одной стороны) тринадцать, карточек, где на одной стороне машина, а на другой – зверь, 5. Сколько карточек, у которых на обоих сторонах объекты одного
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Var A:array[1..100] of integer;
i,n:byte;
Begin
write('Введите размерность: ');readln(n);
For i:=1 to n do
Begin
write('A[',i,'] = ');
readln(A[i]);
End;
writeln('Преобразованный');
For i:=1 to n do
Begin
if A[i] mod 10 = 4 then A[i]:=A[i]-2;
write(A[i]:4);
End;
readln;
End.
Ответ :
в ) отделяет один раздел програми от другого...