Возможно маленько не понел задания
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.
Лепс-спел, бар-раб, вес-сев, пот-топ, уже-ежу , думаю хватит.
#include <iostream>
#include <Windows.h>
using namespace std;
int main()
{
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
char s[128]; size_t i = 1; int c=0;
cin.getline(s, 128); s[strlen(s)] = ' ';
for(size_t i=1; i<strlen(s); i++)
if (s[i] == 'а' && s[i - 1]!=' ' && (s[i + 1] == ' ' || s[i + 1] == ',' || s[i + 1] == '.' || s[i + 1] == '!' || s[i + 1] == '?'))
c++;
cout << c << endl;
system("pause");
return 0;
}
Писал на Visual Studio 2017
A:array[1..10000] of integer;
i, n, a, b, k:integer;
begin
k:=1;
readln(n, a, b);
for i:=1 to n do
readln(a[i]);
for i:=a to b do
if ((a[i] mod 3)=0) or ((a[i] mod 5)=0) then k:=k*a[i];
writeln(k);
readln;
end.