Возможно маленько не понел задания
uses crt;
var x:integer;
begin
write(Введите x = '); read(x);
if x>0 then begin
if x<-3 then writeln('2) x^2-3 = ',sqr(x)-3);
end else writeln('1) x^2+3 = ',sqr(x)+3);
end.
Легко там делай сам подумай и всё лоды
program foo;
uses Crt;
var
a, s: real;
begin
ClrScr;
write('Сторона квадрата: ');
read(a);
s := Sqr(a);
Writeln('Его площадь: ', s:0:2);
ReadKey;
end.
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n;
cin >> n;
for (int i = 1; i < 21; ++i)
cout << i << ' ' << n*i << endl;
}
program slova;
uses crt;
var s, s1: string;
i, k: integer;
begin
clrscr;
writeln ('Vvedite text: ');
readln (s1);
write ('Slova soderjaschie ne bolee 3-h bukv: ');
for i:=1 to length(s) do
begin
if s[i]<>' ' then
begin
s1:=s1+s[i];
k:=k+1;
end
else
if k<=3 then
begin
write (', ',s1);
k:=0;
delete (s1,1,3);
end
else
begin
k:=0;
delete (s1,1,15);
end;
end;
readln;
end.
Вроде так, но у меня щас нету компилятора, так что проверить не могу. Если что-то будет ругаться, или вопросы какие - пиши в личку.