Переписать,
10-11 класс
|
исправив ошибки в программе:
Program
A;
ProgramA;
Var b, a1: real;
begin
read(a1) ;
b := a1 + 5;
a1 := b /2;
write (b, a1);
end.
Комментарий удален
program A;
var 2b,a1: integer;
begin
read (a1);
for 2b:=a1 + 5;
for a1:=2b : 2;
write(2b, a1);
end;
После end - точка.
Другие вопросы из категории
Текст содержит 3 стр. по 50 строк, по 20 символов. Алфавит= 128 символам. Найти объем сообщение?
обозначены символом “*”: X= E*16= *5*8 = ***14 = *****1**2. Восстановите все числа и определите число X.
Читайте также
1. Население некоторой страны в 1904 году составляло а человек. По переписи населения, проведенной в прошлом году, зарегистрировано b человек. Составить программу вычисления среднегодового прироста населения за этот период.
2. Составить программу определения, является ли введенный год високосным?
3. Составить программу определения размера денежного вклада через t лет после его внесения, если заданы размер начального взноса n и банковский процент b.
4. Для условий из предыдущей задачи определить, через сколько лет размер вклада превысит вдвое первоначальный взнос.
это его последний элемент, разве нет?
Код:
program s1;
var x, i:integer;
al, tl: array of real;
begin
writeln ('Введите количество ступеней ракеты'); read (x);
setlength (al, x);
setlength (tl, x);
for i:=1 to x do begin
writeln ('Введите ускорение ', i, ' ступени'); read (al[i]);
writeln ('Введите время работы ', i, ' ступени'); read (tl[i]);
end;
end.
P.S.: Переписать массив в статический не предлагать, нужен именно переменной длины. Заранее спасибо.
Найти количество квадратов нечетных чисел среди компонент файла. Записать это значение в начало нового файла g. Остальные значения переписать из исходного файла f.
результаты переписи населения хранятся в памяти ЭВМ. Элемент массива - год рождения жителя. Подсчитайте общее число жителей родившихся 1958г.