Пишу на языке PASCAL.
№1
program name1; // Название программы name1
var a: integer; // Объявляем переменные
begin
WriteLn('Введите число: ');
ReadLn(a);
if a>0 then writeln('Число положительное');
if a=0 then writeln('Число равно 0')
else writeln('Число отрицательное');
end.
<span>#include <iostream>
int main()
{
int sum = 0, n = 0, value = 0;
std::cin >> value;
while(value) {
n = value % 10;
value /= 10;
if(n % 2) sum += n;
}
std::cout << sum;
<span>}</span></span>
Program ar;
Var a:array [1..3] of array [1..4] of integer;
i, j, min, sum:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
read(a[i][j]);
for i:=1 to 3 do
for j:=1 to 4 do
if a[i][j] > 10 then write(a[i][j], ' ');
writeln;
min:=a[2][1];
for j:=1 to 4 do
if a[2][j] < min then min:=a[2][j];
writeln(min);
for i:=1 to 3 do
begin
sum:=0;
for j:=1 to 4 do
sum:=sum + a[i][j];
write(sum, ' ');
end;
end.
Надеюсь все работает.
уфф, сегодня вас много, паскалистов. :D
Возьми последнюю цифру своего числа, добавь свой возраст, размер всего числа и добавь С Богом! Мб поможет.