//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int n,k=0;
for(int i=0;i<10;i++){
cin>>n;
if((n%3==0)&&(n%4!=0))k++;}
cout<<k;
cin.get();
cin.get();
return 0;
}
Пример ввода:
2
5
34
4
16
3
8
0
23
67
Пример вывода:
1
A)
var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] <> UpCase(a[i])) then
write(a[i], ' ');
<span>end.
b)
var a: string;
i, p: integer;
q: boolean;
begin
readln(a);
for p := 0 to 9 do
for i := 1 to length(a) do
if (a[i] = inttostr(p)) then
q := true;
writeln(q);
<span>end.
c)
var a: string;
i, p, u: integer;
o: array [0..5] of char;
begin
readln(a);
o[0] := '('; o[1] := ')'; o[2] := '{'; o[3] := '}'; o[4] := '['; o[5] := ']';
for p := 0 to 5 do
for i := 1 to length(a) do
if (a[i] = o[p]) then
u := u + 1;
writeln(u);
<span>end.
d)
var a: string;
i, p: integer;
o: array [0..7] of char;
begin
readln(a);
o[0] := '('; o[1] := ')'; o[2] := '?'; o[3] := '!'; o[4] := '"'; o[5] := '.'; o[6] := ','; o[7] := ',';
for i := 1 to length(a) do
for p := 0 to 7 do
if (a[i] = o[p]) then
writeln(a[i]);
<span>end.
Ну вот:) <em>О, мой мозг, как же тебе досталось! ~_~</em></span></span></span></span>
===== PascalABC.NET =====
begin
foreach var n in Range(100, 999) do
if n mod 81 = 0 then
Print(n)
end.
Для обработки текстовой информации предназначены текстовые редакторы и текстовые процессоры - Microsoft Word, Open Office Writer, WordPad, Блокнот.
Для обработки графической информации - растровые и векторные графические редакторы - Microsoft Paint, Adobe Photoshop, Corel Draw.
Для обработки числовой информации - редакторы электронных таблиц (Microsoft Excel, OpenOffice Calc), калькулятор (стандартный в Windows), математические пакеты - Mathematica
Ответ:
для числового D2:
=ЕСЛИ(F2>5;0,15; ЕСЛИ(И(D2>=8;D2<=21);0,39;0,1))
для D2 типа "время"
=ЕСЛИ(F2>5;0,15; ЕСЛИ(И(D2>=ВРЕМЯ(8;0;0);D2<=ВРЕМЯ(21;0;0));0,39;0,1))
Объяснение:
D2<=21
