#include <stdio.h>
int main(void)
{
unsigned int
number;
scanf("%u", &number);
switch(number)
{
case 1:
{
printf("%s\n", "Понедельник");
break;
}
case 2:
{
printf("%s\n", "Вторник");
break;
}
case 3:
{
printf("%s\n", "Среда");
break;
}
case 4:
{
printf("%s\n", "Четверг");
break;
}
case 5:
{
printf("%s\n", "Пятница");
break;
}
case 6:
{
printf("%s\n", "Суббота");
break;
}
case 7:
{
printf("%s\n", "Воскресенье");
break;
}
}
return 0;
}
uses crt;
var b,x:real;
begin
write('Введите длину ткани: ');
readln(x);
write('Введите стоимость квадратного метра ткани: ');
readln(b);
writeln('Стоимость ткани длиной ',x,' метров равна ',0.8*x*b);{кусок длиной 1.25 м и шириной 0.8 метра имеет площадь 1 квадратный метр и стоит ровно B рублей}
end.
<span> 1) 15, 14, 15, 14, 15, 14, 15, 14, 15, 14, 15, 14, 15, 14;</span>
Program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
n,m,k,c:integer;
function NOD(x,y:integer):integer;
Begin
If x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
End;
function NOK(x,y:integer):integer;
Begin
NOK:=(x div NOD (x,y))*y;
end;
begin
writeln('Enter M, N, K');
write('m = ');readln(m);
write('n = ');readln(n);
write('k = ');readln(n);
c:=NOK(k,m);
k:=nok(c,n);
writeln('NOK(M,N,K) = ',k);
readln;
<span>end.
</span>
<span>исполняемый ехе файл получается в результате работы : компилятора
</span>