ПАСКАЛЬ!!!
10-11 класс
|
Нужно написать 2 программки. Ребят, помогите, кто может ❤️
program n1;
var x:integer;
begin
read(x);
write(x,' копе');
if (x = 11) or (x = 12) or (x = 13) or (x = 14) then writeln('ек') else
if x mod 10 = 1 then writeln('йка') else
if (x mod 10 = 2) or (x mod 10 = 3) or (x mod 10 = 4) then writeln('йки') else writeln('ек');
end.
program n2;
var n:integer;
begin
write('Введите номер месяца: ');
readln(n);
case n of
1,3,5,7,8,10,12: writeln('В этом месяце 31 день');
4,6,9,11: writeln('В этом месяце 30 дней');
2: writeln('В этом месяце 28 или 29 дней');
else writeln('Введен неправильный номер месяца');
end;
end.
Тебе через ветвление или выборку надо?
Другие вопросы из категории
тым файлом:
а) переформатировать;
б) распаковать;
в) просмотреть;
г) запустить на выполнение.
реализовать его возможности:
1) Microsoft Windows 2000 Datacenter Server
2) Microsoft Windows 2000 Professional
3) Microsoft Windows 2000 Server
4) Microsoft Windows 2000 Advanced Server
переменных А и B. Вывести новые значения А и B
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
constructor и destructor и для чего нужна?
4) Что такое implementation и для чего нужна?
5) Назовите модули Паскаль ( в строке Uses, например crt) и какие возможности этот модуль дает?
6) Что за тип переменной: указательный (Pointer)
7) И на последок: что означает символ @ , #, $ , ^
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Вот код Паскаль:
var
f:array[1..500] of record
fam:string;
bal:boolean;
end;
buf:boolean;
str:string;