В предыдущем вопросе я написала решение. program z; var a,b,c,d,e,x,g,h:integer; begin write('Введите пятизначное число'); read(x); a:= x mod 10; b:= x mod 100; b:= b div 10; c:= x mod 1000; c:= c div 100; d:= x mod 10000; d:= d div 1000; e:= x mod 100000; e:= e div 10000; if a mod 2=0 then h:=a else g:=a; if b mod 2=0 then h:=h+b else g:=g+b; if c mod 2=0 then h:=h+c else g:=g+c; if d mod 2=0 then h:=h+d else g:=g+d; if e mod 2=0 then h:=h+e else g:=g+e; writeln(' Сумма нечётных цифр равна ', g); write(' Сумма чётных цифр равна ', h); end.
1. SELECT Перевозки.ДатаОтгрузки, Перевозки.НомерВагона, Перевозки.КодГруза, Перевозки.Стоимость, Перевозки.ДатаВозвратаВагона FROM Перевозки WHERE (((Month([ДатаОтгрузки]))>=1 And (Month([ДатаОтгрузки]))<7) AND ((Year([ДатаОтгрузки]))=Year(Date())-1)) ORDER BY Перевозки.ДатаОтгрузки, Перевозки.НомерВагона;
2. SELECT DISTINCTROW НаименованиеГруза.Наименование, Avg(Перевозки.Стоимость) AS [Avg-Стоимость], Year([Перевозки]![ДатаОтгрузки]) AS [Год отгрузки] FROM НаименованиеГруза INNER JOIN Перевозки ON НаименованиеГруза.Код = Перевозки.КодГруза GROUP BY НаименованиеГруза.Наименование, Year([Перевозки]![ДатаОтгрузки]), Перевозки.КодГруза;
3. не знаю как срок считать
4. SELECT DISTINCTROW Sum(Перевозки.Стоимость) AS [ОбщаяСтоимость перевозок за период] FROM Перевозки HAVING (((Перевозки.ДатаОтгрузки) Between [:d1] And [:d2]));
Zadacha_1; var a,b,c:integer; begin writeln (' введите число'); readln(a); b:=a mod 10; a:=a div 10; c:=a mod 10; a:=a div 10; if (a = b) or (a=c) or (b = c)then writeln ('такие числа есть') else writeln('таких чисел нет'); end.
zadacha_2; var a:integer; begin writeln(' введите время в минутах'); readln(a); a:=a mod 10; if ((a >= 0) and (a <= 3)) or ((a > 5) and (a <= 8)) then writeln('зелёный'); if ((a > 3) and (a <= 5)) or ((a > 8) and (a < 0)) then writeln('жёлтый'); end.
program z;
var a,b,c,d,e,x,g,h:integer;
begin
write('Введите пятизначное число');
read(x);
a:= x mod 10;
b:= x mod 100;
b:= b div 10;
c:= x mod 1000;
c:= c div 100;
d:= x mod 10000;
d:= d div 1000;
e:= x mod 100000;
e:= e div 10000;
if a mod 2=0 then h:=a
else g:=a;
if b mod 2=0 then h:=h+b
else g:=g+b;
if c mod 2=0 then h:=h+c
else g:=g+c;
if d mod 2=0 then h:=h+d
else g:=g+d;
if e mod 2=0 then h:=h+e
else g:=g+e;
writeln(' Сумма нечётных цифр равна ', g);
write(' Сумма чётных цифр равна ', h);
end.