//Pascal ABC.NET 3.1 сборка 1256
Var
ar:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin
readln(ar[i]);
if ar[i] mod 3=0 then k:=k+1;
end;
writeln(k);
end.
Блок-схема - в прилагаемом файле.
оо, любимый c++.
итак,
//Программа подсчета периметра
//Прямоугольного треугольника
#include <iostream>
#include <cstdlib>
using namespace std;
int main() {
int a,b,c, P; //Важно, далее везде P с заглавной буквы
cout<<"enter the three sides of your triangle"<<endl; // Просит ввести три стороны треугольника
cin>>a>>b>>c; //Пользователю дают ввести три стороны треугольника. Можно вводить на одной строке через пробел.
P=a+b+c;
cout<<"You perimeter is "<<P<<endl;
system("pause");
return 0;
}