Program E08; uses crt; var X: array[-1000..1000] of integer; S,i,k: integer; begin clrscr; writeln('Введите массив X:'); for i:=1 to 10 do begin write('X[',i:2,'] ==> '); readln(X[i]) end; for i:=1 to 10 do write(X[i],' '); writeln;
K:=0;
for i:=1 to 10 do begin S:=X[i] mod 3; if S = 0 then K:=K+1 end; writeln('Ответ: ',K) <span>end.</span>
<span>var
a: array [1..30] of integer; i,k: integer;
<span>begin .... k:=0; </span></span>все в цикле (примерно так: for i:=1 to 10 do...)(это чтобы прокручивать цикл) if ((a[i] mod 2=1) and (a[i] mod 3=0)) then k=k+1; writeln(k);end. что-то вроде этого,я уже точно не помню язык pascal;
#include <stdio.h>#include <math.h>using namespace std;int main() { size_t n = 2; // Уадяемая цифра int number = 2346224; // Задавай число printf("Входное число: %d\n", number); int sig = number >= 0, temp = number; number = 0; size_t i = 0; while (temp) { int k = temp % 10; if (n != k) { number += (k)* pow(10, i); i++; } temp /= 10; } number *= sig; printf("Результат: %d\n", number); system("pause"); return 0;}
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var n:=ReadlnInteger; var a:=ReadArrString(n); Writeln(40*'-'); foreach var w in a do begin var wa:=w.ToWords; if wa[2].ToInteger>100 then Writeln(w) end end.