MS-DOS QBasic
Версия 1.0
Copyright (C) Microsoft Corporation, 1987-1991.
INPUT n, start, finish
k = start + finish
IF k > n THEN k = n
IF k < 1 THEN k = 1
PRINT k
Тестовое решение
Y:\qbasic>QBASIC.EXE
? 10,5,3
8
Чтобы продолжить, нажмите любую клавишу
Var y,x,l:real;
<span>begin </span>
<span>writeln('Введите значение l и x соотвественно'); </span>
<span>read(l,x); </span>
<span>if x=0 then writeln('x не может быть равен нулю, так как дробь нельзя делить на ноль') </span>
<span>else begin </span>
<span>y:=sqr(l/x); </span>
<span>writeln(y); </span>
<span>end; </span>
<span>end.</span>
Var
s: string;
n: byte;
begin
readln(s);
foreach i: char in s do
if (Char.IsDigit(i)) then
n += 1;
writeln(n);
end.
------------------------
var
s: string;
n: byte;
begin
readln(s);
for i: byte := 1 to length(s) do
if (s[i] in ['0'..'9']) then
n += 1;
writeln(n);
end.
A)
#include <iostream>
using namespace std;
int main() {
int a, b,s;
cin >> a;
cin >> b;
s = a+b;
cout << s << endl;
}
b)
#include <iostream>
using namespace std;
int main() {
int a,b;
cin >> a;
cin >> b;
cout << a+b << endl;
}
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('Введите координаты точки:');
Writeln((y>3-x) and (y>0) and (x>0) and (x*x+y*y<36))
end.
<u>Пример</u>
Введите координаты точки: 5 2.1
True