Program n1;
var i,n: integer;
begin
write('введите число: ');
readln(n);
for i:=1 to n do write(i,' ');
end.
1) Цикл выполнится 134 раза, т.к. i = 134
2) 134 раза к y прибавится 2, т.е. 134*2 = 268 будет выведено на экран
Компью́тер — устройство или система, способная выполнять заданную, чётко определённую, изменяемую последовательность операций.Это чаще всего операции численных расчётов и манипулирования данными, однако сюда относятся и операции ввода-вывода. Описание последовательности операций называется программой.
С помощью компьютера можно :
*делать вычисление
*создавать базу данных
*управлять устройствами
*Набирать текст , просматривать фильм
*Современные суперкомпьютеры используются для компьютерного моделирования сложных физических, биологических, метеорологических и других процессов и решения прикладных задач
var
i,z,y,x: integer; // объявление переменных
begin // начало программы
writeln('Введите числа: '); // Вывод сообщения
readln(x,y); // Ввод чисел х и у с клавиатуры
while i <> y do // Повторять цикл пока i не будет равно y
begin // Вход в цикл
z:=z+x; // z = z + x (при первом шаге получается 0 = 0 + х)
i:=i+1; // Увеличиваем счетчик цикла на 1
end; // Выход из цикла
write(z); // Вывод z (произведение х и у)
end. // Конец программы
Ровно 13 строк:
program Geron;
var ab,bc,ca,p: real;
begin
writeln('Определение площади треугольника по теореме Герона');
write('Введите сторону треугольника AB: ');
readln(ab);
write('Введите сторону треугольника BC: ');
readln(bc);
write('Введите сторону треугольника CA: ');
readln(ca);
p:=(ab+bc+ca)/2;
writeln('Площадь треугольника равна ',sqrt(p*(p-ab)*(p-bc)*(p-ca)):0:3)
end.