Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
2, 3, 6, 18, 108
каждый член последовательности начиная с третьего равен произведению двух предыдущих:
2 * 3 = 6
3 * 6 = 18
6 * 18 = 108
program vvl;
var x: integer;
v: real;
begin
write('x=');
readln (x);
v: = abs(a)-2;
writeln ('v='; v: 2: 1);
end.
(5)aabaabcaabaabcdaabaabcaabaabcde(6)aabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdef(7)aabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefg
на 64 месте: а
program a1;
uses crt;
var a: array[1..31] of longint; k,i: integer;
clrscr;
for i: =1 to 31 do begin
write('введите температуру ',i,' числа: ');
readln(a[i]);
if a[i]< 0 then k: =k+1;
end;
writeln(' количество дней в которые были заморозки = ', k);
readln
p.s. если паскаль abc, то выделенное писать не обязательно
Популярные вопросы