1) program fagasg; var a,b,c,d: integer; begin Writeln('Введите первое число'); readln(a); Writeln('Введите второе число'); readln(b); Writeln('Введите третье число'); readln(c); d:=0; If a>0 then d:=d+1; If b>0 then d:=d+1; If c>0 then d:=d+1; Writeln('Количество положительных чисел:',d); end. 2) program gsggdfd; var n,s,i: integer; begin writeln('Введите n'); readln(n); s:=0; For i:=1 to n do S:=s+i; Writeln('Сумма последовательности равна:',s); end. 3)Program afsdgf; var A: Array[1..100] of integer; i,h,s,l: integer; begin Writeln('ведите размер массива'); readln(h); s:=1; l:=1; For i:=1 to h do begin A[i]:=s+l; s:=s+2; writeln(A[i]); l:=A[i]; end; end.
Апр, школа №151 мурманской области вам: 1) 24 буквы + 8 цифр = 32 символа 2) 32 символа + 1 пробел = 33 символа 3) а так как для 32 символов нужно 5 бит, то для 33 символов нужно 6 бит ответ: i = 6 бит 2. здесь каждый раз придется задавать вопросы, чтобы уменьшить количество возможных вариантов. 1) больше или меньше 32? 2) больше или меньше 16? 3) больше или меньше 8? 4) больше или меньше 4? 5) больше или меньше 2? ответ: 5 вопросов. 3. не смогу . мне задали другое . удачи. 3 уже обеспечена : )
var a,b,c,d: integer;
begin
Writeln('Введите первое число');
readln(a);
Writeln('Введите второе число');
readln(b);
Writeln('Введите третье число');
readln(c);
d:=0;
If a>0 then d:=d+1;
If b>0 then d:=d+1;
If c>0 then d:=d+1;
Writeln('Количество положительных чисел:',d);
end.
2) program gsggdfd;
var n,s,i: integer;
begin
writeln('Введите n');
readln(n);
s:=0;
For i:=1 to n do
S:=s+i;
Writeln('Сумма последовательности равна:',s);
end.
3)Program afsdgf;
var A: Array[1..100] of integer;
i,h,s,l: integer;
begin
Writeln('ведите размер массива');
readln(h);
s:=1;
l:=1;
For i:=1 to h do
begin
A[i]:=s+l;
s:=s+2;
writeln(A[i]);
l:=A[i];
end;
end.