var
f: integer;
begin
write('Сколько дней: ');
readln(f);
writeln('Полных недель: ', f div 7);
writeln('Полных месяцев (берем месяц 30 дней): ', f div 30);
end.
Назначение помогать людям за зверями . Команды :напоминать когда кормит , играть(может делать все сам) Это задание на воображение подумай)
110
х 101
------------
110
+ 110
------------
11110
var
mas:array[1..20]of integer;
i:integer;
//s,s1:integer;
begin
writeln('Элементы массива:');
for i:=2 to 20 do
begin
mas[i]:=2*i+5;
write(' ',mas[i]);
end;
writeln();
write('Первый элемент массива: ',mas[1]+#10+'Пятый элемент массива: ',mas[5]+#10+'Десятый элемент массива: ',mas[10]);
end.
Ну, во первых sqr - команда для возведения числа в квадрат, а а^3 - куб числа. Если тебе нужен куб, в выводе просто напиши а*а*а:
Writeln(‘a^3=‘,a*a*a);
Если же все таки нужен квадрат, то тебе не нужна запятая после sqr. Ты пишешь sqr(a). Или же просто а*а. Ну и конечно, надо будет поправить 3 на 2))
Writeln(‘a^2=‘,a*a);
Writeln(‘a^2=‘,sqr(a));