Запрограммируйте пример, у меня выдает постоянно «ожидался порядковый тип»
5-9 класс
|
var n:real; i:integer;
begin
readln(n);
for i := 1 to 5 do
begin
n := n + 2;
n := sqrt(n);
end;
writeln(n);
end.
Другие вопросы из категории
одного прямоугольного треугольника, а c и d - другого. эти треугольники являются подобными
480 пикселей, при условии, что цвет каждого пикселя кодируется тремя байтами?
Читайте также
Приведите примеры.". Определение довольно легкое, а вот с примерами у меня была ошибочка. Я написала mail ru но учительница сказала что это не правильно. Тогда я зашла в тупик. Приведите пожалуйста пример электронной почты.
Program Ah;
uses crt;
var A:array[1..15] of integer;
i,k,n:integer;
begin
clrscr;
for i:=1 to 18 do begin
writeln('A[',i,']=');
read(A[i]);
end;
writeln('Введите число');
read(n);
k:=0;
for i:=1 to 15 do begin
if a[i]>n then
k:=k+1;
writeln('k=',k);
readkey;
end.
(В последней строке выдает "Ошибка, ожидается точка с запятой")
integer;
writeln:('vvedite a, b');
readeln(a,b)
writeln('a>b');
writeln('a/b mod');
end.
Gambas.
Срочно нужно, ребят!
Хотя бы без рисунка, просто запрограммировать бабочку(ее изображение не меняется), которая перемещается слева направо.