Program gt;
var n,q,a1,a2,a3,a4,a5,a6,a7,a8,a9,a0:integer;
begin
read(n);
a0:=0;a1:=0;
a2:=0;a3:=0;
a4:=0;a5:=0;
a6:=0;a7:=0;
a8:=0;a9:=0;
while n>0 do
begin
q:=n mod 10;
n:=n div 10;
if(q=0)then a0:=a0+1;
if(q=1)then a1:=a1+1;
***********************
***********************
if(q=9)then a9:=a9+1;
end;
if(a0>1)or(a1>1)or....(a9>1)then writeln('yes')else writeln('no');
end.
буз массива как-то так получиться
#include <stdio.h>
#include <stdlib.h>
#include <locale.h>
int main(void)
{
setlocale(LC_ALL, "Russian");
int n, iuneven = -1;
scanf("%d", &n);
int *a = (int*)malloc(n * sizeof(int));
for (int i = 0; i < n; i++)
scanf("%d", &a[i]);
for (int i = 0; i < n; i++)
if (a[i] % 2 == 1)
{
iuneven = i;
break;
}
free(a);
iuneven == -1 ? printf("Нечетное число не найдено\n") : printf("%d\n", iuneven);
return 0;
}
Порядок перемещения:
0. 0 (начальное положение)
1. 0+3=3
2. 3-2=1 - нечетное
3. 1+4=4
4. 4+3=7
5. 7-2=5 - нечетное
6. 5+3=8
7. 8-2=6
8. 6-2=4 - четное
9. Закрасить
Итого закрашена 1 точка, ответ: 1.
CLS
a:
INPUT "введи основание"; a
IF a<=0 THEN PRINT "не может быть": GOTO a
b:
INPUT "введи высоту"; h
IF h<=0 THEN PRINT "не может быть": GOTO a
S=a*h/2
PRINT "площадь треугольника равна"; S
END