<em><u>Pascal:</u></em>
var n:longint;
begin
write ('N = ');
readln (n);
if ((n mod 10) mod 2 = 1) then writeln ('YES') else writeln ('NO');
readln;
end.
<u><em>C++:</em></u>
#include <iostream>
using namespace std;
int main()
{
long n;
cout <<"N = ";
cin >> n;
if ((n%10)%2==1)
cout <<"YES" <<endl;
else cout <<"NO" <<endl;
return 0;
}
1)
Var i:integer;
Begin
for i := 100 to 999 do
if (i mod 15 = 11) and (i mod 11 = 9)
then writeln(i);
End.
2)
Var i,n,s:integer;
Begin
read (n);
s := 1;
for i := 1 to n do
s := s * i;
write(s);
End.
3)
Var i,j,k:integer;
Begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if i*i*i+j*j*j+k*k*k=i*100+j*10+k
then writeln(i*100+j*10+k);
End.
на си(с++)
#include<iostream.h>
void main(){
int a;
int x;
cin>>x;//число на которое должно закончитьс
cin>>a;//число которое вводишь
int b,c,d;
b=a%1000;//остаток от деления на 1000
d=b%100;//остаток от остатка деления на 100
c=d%10;//само число
if (c==x) cout<<"Верно";else cout<<"Не верно";
}
если на паскале тольок вместо % ставите mod и вместо cout write
и в скобках а так в принципе все
#include <iostream>
#include <vector>
#include <iterator>
#include <algorithm>
#include <cmath>
int main()
{
int
sum(0), count(0),
A, B;
std::cin >> A >> B;
std::vector<int> vec;
std::copy(std::istream_iterator<int>(std::cin), std::istream_iterator<int>(), std::back_inserter(vec));
for(auto it = vec.begin(); it != vec.end(); it++)
{
if(A < *it && B > *it && (std::distance(vec.begin(), it) % 4) == 0)
sum += pow(*it, 2);
}
std::cout << "Количество нулей: " << std::count(vec.begin(), vec.end(), 0) << std::endl;
std::cout << "Сумма квадратов чисел: " << sum << std::endl;
}
// PascalABC.NET 3.3
begin
var a:=ArrRandom(35,2,42); a.Println;
Writeln('П=',a.Where(x->(x>=4)and(x<=10)).Aggregate(1,(p,x)->p*x));
end.
Пример:
34 16 9 17 4 11 34 26 30 17 28 18 6 31 38 20 30 35 29 40 21 38 30 10 5 9 15 12 28 5 23 6 30 30 37
П=2916000