ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";
ПЕР
число, сумма, количество, цифра: ЦЕЛ;
УКАЗ
число := Приём.Число();
количество := 0; сумма := 0;
ПОКА число > 0 ВЫП
цифра := число ОСТАТОК 10;
ЕСЛИ ЧЕТ(цифра) ТО
УВЕЛИЧИТЬ(сумма, цифра); УВЕЛИЧИТЬ(количество)
КОН;
число := число ДЕЛИТЬ 10
КОН;
Вывод.ЧЦел("^%d %d", количество, сумма, 0, 0)
КОН Задание.
Язык СИ
1.
Заголовки пишу один раз:
#include <stdio.h>#include <stdlib.h>#include <math.h>
int main(void){double rezgeometry,rezarf;int x,y,z;scanf("\%d\%d\%d", &x,&y,&z);
rezgeometry=pow((x+y+z),1/3);
rezarf=(x+y+z)/3;
printf("\%lf\n",rezgeometry);printf("\%lf",rezarf);}
2
#include <stdio.h>#include <stdlib.h>#include <math.h>
int main(void){double rez;int x,y;scanf("\%d\%d", &x,&y);
if (x == y){x=0;y=0;}else if (x<y){x=0;}else{y=0;}printf("\%d\%d",x,y);
}
Прикладное программное обеспечение
Второе задание:
var a,b,y: integer;
begin
read(a,b,y);
if ((y<a) and (y>b)) or ((y>a) and (y<b)) then writeln('принадлежит') else writeln('не принадлежит');
<span>end.</span>