Паскаль ABC.net версии 3.3.5
var
n: word;
begin
write('Введите номер дня недели: ');
readln(n);
case n of
1: writeln('Понедельник');
2: writeln('Вторник');
3: writeln('Среда');
4: writeln('Четверг');
5: writeln('Пятница');
6: writeln('Суббота');
7: writeln('Воскресенье');
else writeln('Нет такого номера дня недели');
end;
end.
2) Команда( B:= 3) Значение переменной 3
3)Имя переменной С ,Значение переменной 2+3
var x,s,p:integer;
begin
p:=1;
while s<300 do begin
readln(x);
if x mod 3=0 then p:=p*x;
s:=s+x;
end;
if p<>1 then writeln(p) else writeln('0');
end.
#include <iostream>using namespace std;
//Функция возвращает минимальное возможное число,//Состоящее из цифр числа aint min(int a) { //Массив для подсчета цифр в числе int *k = new int[10]; for (int i = 0; i < 10; i++) k[i] = 0;
//Считаем, сколько раз повторяется каждая цифра в числе for (; a; a /= 10) { int t = a \% 10; //Если цифра не 0 if (t) k[t]++; }
//Переменная для результата int rez = 0; //Множиель разряда int multiplier = 10;
//Идем по массиву в обратном порядке for (int i = 9; i > 0; i--) //Если данная цифра есть в массиве (числе) for (; k[i]; k[i]--) { //Дописываем цифру в результат rez += i * multiplier * 0.1; //Увеличиваем множитель, для перехода к следующему разряду multiplier *= 10; } //Удаление массива delete[] k; return rez;}
void main(){ //Входные данные int n; printf("\n << n = "); scanf("\%d",&n);
//Вывод результата printf("\n >> min = \%d", min(n));
system("pause>>void");}
49152 бит = 49152 / 8 байт = 6144 байт
