Program z7; Var a,b:integer; dx,y,x:real;Begin Write('Введите начало отрезка а = '); readln(a); Write('Введите конец отрезка b = '); readln(b); Write('Введите шаг dx = '); readln(dx); x:=a; writeln(' X Y'); while x<=b do begin y:=x; writeln(x,' ',y); x:=x+dx; end;End.
В D/2013/Весна создали папку Май, позже переместили Ландыш.doc в папку Май, соответственно правильный ответ четвертый: D/2013/Весна/Май/Ландыш.doc
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(ReadInteger('n='),t->Sqrt(t)); a.Println(', ')
end.
<u>Пример</u>
n= 13
0, 1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838, 3.3166247903554, 3.46410161513775
<u>Замечание:</u> массив индексирован от нуля.
// версия для простого паскаля
var age:byte;
begin
writeln(' Введите ваш возраст в годах. ');
readln(age);
writeln(' Через 5 лет вам будет ', age+5, ' лет');
end.