Program z1;
var A:array[1..30] of integer;
i,k:integer;
begin
k:=1;
for i:=1 to 30 do begin
write('a[',i,']=');
read(a[i]);
end;
for i:=1 to 30 do
if a[i] mod 2=0 then
k:=a[i]*k;
writeln(k);
end.
1. a = 14; b = 42 ( см. вложение 1 )
2. x = 2; y = 5; t = 5 ( см. вложение 2 )
3. a = 3; b = 12 ( см. вложение 3 )
4. x = 42; y = 2 ( см. вложение 4 )
Решение на C. Переведи на синтаксис паскаля :)
#include <stdio.h>
int pearCount;
int friendsCount;
int main(int argc, const char * argv[]) {
printf("Количество груш: ");
scanf("%i", &pearCount);
printf("Количество подруг: ");
scanf("%i", &friendsCount);
if (pearCount % friendsCount != 0) {
printf("Количество груш '%i' Количество подруг '%i': нет\n", pearCount, friendsCount);
} else {
printf("Количество груш '%i' Количество подруг '%i': да\n", pearCount, friendsCount);
}
return 0;
}
<span>0.001
</span><span>Решение должно иметь от 20 до 5000 символов</span>