Var x,y,s: integer;
begin
readln(x,y);
s:=35*x+60*y;
writeln(s)
<span>end.</span>
===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
a.Count(p -> p > 0).Println
end.
program raf105;
var
s:string;
x:boolean;
i:integer;
begin
write('Введите слово: ');
readln(s);
s:= lowercase(s);
for i:=2 to length(s) do
if not x
then x:= s[i] = s[i-1];
if x
then writeln('В слове есть две подряд идущие, одинаковые буквы')
else writeln('В слове нет двух подряд идущих, одинаковых букв');
end.
<u><em>Язык PascalABC</em></u>
Задание 1.
Если нужна прога, то выводы и объявления сама накидай. А так: <span>Y:= sqrt(abs(2*sqr(x) - 7*x) + 12)
Задание 2.
На картинке не видно ни черта.
Задание 3.
s:=1;
for i = 1 to 2*n do
s = s*2
Задание 4.
for i = 1 to 20
s:=a(i)+a(i+1)
вне цикла
s:=s/20
Задание 5 - черт знает. С матрицами в Паскале не работал, да и как-то не хочется. Программы могут работать криво: закарючки расставь, пожалуйста, сама, я редко программирую в Паскале.</span>
64 = 2^6 т.е. занимает 6 бит на символ
6*100 = 600 бит
600/8 = 75 байт