на си(с++)
#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
и в скобках а так в принципе все
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var Число := ReadInteger('Введите натуральное число:');
var (Четных, Нечетных) := (0, 0);
while Число > 0 do
begin
if (Число mod 10).IsOdd then Inc(Нечетных)
else Inc(Четных);
Число := Число div 10
end;
Println('Нечетных', Нечетных, 'четных', Четных)
end.
<h2>Введите натуральное число: 1406439</h2><h2>Нечетных 3 четных 4 </h2>
Блок-схема - в прилагаемом файле.
Программа:
#include <stdio.h>
int main()
{
int s;
for (int i=10; i<=99; i++){
s = i / 10 + i % 10;
if (s*s*s == i*i) printf("%d ",i);
}
return 0;
}
Результат:
27
<!DOCTYPE>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Таблица</title>
</head>
<body>
<table border="1">
<tr><th rowspan="2">ФИ</th><th colspan="2">Предмет</th><th rowspan="6">Примечание</th></tr>
<tr><th>математика</th><th>информатика</th><tr>
<tr><td>Петров</td><td>4</td><td>4</td></tr>
<tr><td>Сидоров</td><td>5</td><td>4</td></tr>
<tr><td>Бубликов</td><td>3</td><td>3</td></tr>
</table>
</body>
</html>
Const n=30;
var a:array[1..n] of integer;
k,i:integer;
begin
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
k:=0; i:=0;
while (i<n)and(k<3) do
begin
i:=i+1;
if a[i]>0 then k:=k+1;
end;
if k=3
then writeln('Номер третьего положительного элемента = ',i)
else writeln('В массиве нет 3 положительных элементов');
end.
Пример (для n=20):
-4 -10 3 -4 6 1 -9 4 -10 -8 7 7 0 -2 9 -4 -10 -3 1 -2
Номер третьего положительного элемента = 6