Редактор** Ир(а зачеркнутая и рядом о)*********повествование
Форматирование составь по моему образцу слова редактирование
const n = 450;
var
i,min,s: integer;
arr:array[1..n] of integer;
begin
min:=999;
s:=0;
for i:=1 to n do begin
arr[i]:=random(900)+100;
if arr[i]<=min then begin
min:=arr[i];
end;
end;
for i:=1 to n <span>do </span>
<span> if </span>arr[i]=min then s:=s+1;
writeln(s);
end.
Var a:array[1..20] of integer;
n,i:integer;
begin
for i:=1 to 20 do begin
a[i]:=random(-150,1000);
if (a[i] mod 5=0) and (a[i] mod 2<>0) then n+=1;
write(a[i],' ');
end;
writeln();
writeln('Искомых элементов: ',n);
end.
Язык не указан, Default-Language это C. На нём и напишу.
1.
#include <stdio.h>
int main() {
int n;
scanf("%d", &n);
if (n % 10 == 4 || n % 10 == 7 || n / 10 == 4 || n / 10 == 7)
printf("YES\n");
else
printf("NO\n");
return 0;
}
Для порядку скажу что на Perl это можно реализовать проще.
#!perl
%h { 4 => 0, 7 => 0};
<>;
if (exists $h{$_%10} || exists $h{$_/10}) {
print "YES\n";
else {
print "NO\n";
}
Но мы ушли от темы. Итак, 2. Тут всё ещё проще:
#include <stdio.h>
int main() {
int n;
scanf("%d", &n);
if (!(n % 3))
printf("Multiple of 3\n");
else
printf("Not multiple of 3\n");
if (n % 10 == 3)
printf("Ends by 3\n");
else
printf("Not ends by 3\n");
return 0;
}
Тут более простой реализации на другом известном мне языке нету, так что приводить дополнительно ничего не буду.
