ВЫПОЛНИМ ВМЕСТЕ ескую
нителье
е, позво
верка 2
і запис
Рассмотрим простой пример: деление двух чисел.
Выделите произвольную ячейку, например А1. В строке формул вве-
дите знак «=», затем введите выражение 100/5. Нажмите Enter. В ячей-
ке появится результат 20 (рис. 3.21). А в строке формул отобразится сама
ию, то
формула =100/5.
я
// Внимание! Если программа не работает, обновите версию!
procedure Love(n:integer);
begin
Writeln(n*('Я люблю ПАСКАЛЬ'+NewLine))
end;
begin
Love(ReadInteger('n='))
end.
Пример
n= 5
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!
procedure LinEqu(a,b:real);
begin
if a=0 then
if b=0 then Writeln('Решений бесконечно много')
else Writeln('решений нет')
else Writeln('x=',-b/a)
end;
begin
var a,b:real;
Write('Введите а и b: '); Read(a,b);
LinEqu(a,b)
end.
Пример
Введите а и b: 18.45 -12
x=0.650406504065041
a,b,j,v,c:string;
q: integer;
begin
writeln('Напишите своё имя');
readln(a);
writeln('Напишите дату рождения, год целиком');
readln(q);
q:=2016-q;
write(' - Привет,',a,'. ');
if q<7 then begin writeln('Ты уже пошел в детский сад?'); readln (' - ',b);
if (b='Да') or (b='да') then writeln ('Удачи!') else writeln (' - Пойди в Детский сад, там тебя обучат азам жизни. Удачи') end; else if (7<q) and (q<17) then begin writln (' - Ты пошёл в школу?'); readln (' - ',c); if (c='Да') or (c='да') then begin writeln (' - В какую школу ты пошёл?'); readln (' - ',v); writeln (' - В каком ты классе?'); readln (' - ',j);end;
end.
Так можно продолжать бесконечно