Var day:integer; begin writeln('Введите номер дня недели(1-7):'); readln(day); case day of 1:writeln('Понедельник'); 2:writeln('Вторник'); 3:writeln('Среда'); 4:writeln('Четверг'); 5:writeln('Пятница'); 6:writeln('Суббота'); 7:writeln('Воскресенье'); else writeln('Неверно введён день недели!'); end;end.
#include <stdio.h>
#define pi 3.14
int main(void){
double S, h, r;
printf("Введите высоту цилиндра: "); scanf("%f", &h);
printf("Введите радиус: "); scanf("%f", &r);
S = 2.0 * pi * h * r;
printf("Площади боковой поверхности цилиндра равна %.2f", S);
return 0;
}
Uses crt;
var x,m: array [1..40] of integer;
n,k,c:integer;
begin
readln(n);
c:=1;
for k:=1 to n do
begin
write('x[',k,']:');
readln(x[k]);
end;
k:=1;
repeat
if x[k]>0 then
begin
m[c]:=x[k];
inc(c);
inc(k);
end
else inc(k);
until c=6;
writeln;
for c:=1 to 5 do
writeln('m[',c,']:',m[c]);
<span>end.</span>
Var ar:array[1..10] of integer;
i:integer;
begin;
randomize;
writeln('Array');
for i:=1 to 10 do
begin;
ar[i]:=random(1,10);
write(ar[i]:4);
end;
writeln;
writeln('Result:');
for i:=1 to 10 do
if ar[i] mod 2=0 then write(i:4);
<span>end.</span>
ПОМОГИТЕ, ПОЖАЛУЙСТА, ОЧЕНЬ СРОЧНО НАДО!! На доске написано 16 чисел [65, 95, 96, 91, 54, 60, 57, 89, 89, 98, 90, 54, 57, 86, 96
Лучезарная3
Поставил себя на место Димы, сыграл в его игру, и получил 380 очков. Привет, Дима!
