Program hhh54;
var i,n,x:longint;
a: array [1..100000] of longint;
begin
read (n);
a[1]:=1;
a[2]:=1;
for i:= 3 to n do
begin
a[i]:=a[i-1]+a[i-2];
write (a[i]);
end;
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа. Free pascal

BigVik [2K]

Var a, s,d,ed, ost: integer;
begin
a:=99;
repeat
a:=a+1;
s:= a div 100;
ost:= a mod 100;
if ost>9 then
begin
d:= ost div 10 ;
ost:=ost mod 10;
end else d:= 0;
if ost<10 then ed:=ost;
until (a<1000) and (a*a=((s+d+ed)*(s+d+ed)*(s+d+ed)));
writeln('это число: ',a:3);
end.

0 0

4 года назад

Не очень поняла задание,можете подсказать ответы на кроссворд?..

ВитусяСтахова

А - сканер, б - клавиатура, в - мышь, г - принтер, д - монитор, главное слово наушники

0 0

4 года назад

Помогите, пожалуйста, составить программу, в который выводят ответ: если вы получили 2, то вас ругают, а иначе хвалят

макс11

PascalABC:

program ocenka; //название программы
var a:integer; //целочисленная переменная оценки
begin
writeln(a); //ввод (с клавиатуры) значения оценки
if (a=2) then writeln('Плохо') else writeln('Хорошо'); //условие (если а=2 -
// ругаем, иначе - хвалим)
end.

0 0

4 года назад