Var
n,i,chet:integer;
s:string;
begin
readln(n);
str(n,s); // Функция str преобразует число n в строку s
for i:=1 to length(s) do begin
if (ord(s[i])-48) <= 0 then halt; // Процедура halt завершает программу если введенное число <=0
if (ord(s[i])-48) mod 2 = 0 then chet:=chet+1;
end;
writeln('Кол-во цифр - ',length(s),' Кол-во четных - ',chet);
<span>end.</span>
//Я так понял, что нужно писать программу на языке С (так как была указана стандартная библиотека stdio.h данного языка) с использованием операторов if и else
#include <stdio.h>
#include <locale.h>
int main()
{
setlocale(LC_ALL, "Rus");
int num;
printf("Введите номер времени года: ");
scanf("%d", &num);
if (num == 1)
printf("\nЗима:\n1) Декабрь\n2) Январь\n3) Февраль\n");
else if (num == 2)
printf("\nВесна:\n1) Март\n2) Апрель\n3) Май\n");
else if (num == 3)
printf("\nЛето:\n1) Июнь\n2) Июль\n3) Август\n");
else if (num == 4)
printf("\nОсень:\n1) Сентябрь\n2) Октябрь\n3) Ноябрь\n");
else
printf("\nВремени года с данным номером не обнаружено!\n");
return 0;
}
Решение:
1 килобайт = 1024 байт
5*1024=5120 байт
Ответ: буква г)
var a: array [1..6] of integer;
var I: integer;
begin
a[1]:=5;
for I:=2 to 6 do a[I]:=a[I-1]*a[I-1];
writeln(a[I]);
end.
Ответ -4223