Программа на паскаль!
1-4 класс
|
Program Str1;
VAR Words: STRING;
BEGIN
Words := 'microsoft';
Words[1] := UpCase (Words[1]);
WriteLn(Words);
Другие вопросы из категории
результат на 3; 5)Відніми від результату 4; 6) Запиши результат. Виконавши завдання, Буратіно отримав число 9, Пєро-число 6, а пудель Артемон-12.Яке число задумав кожний з учнів?
Читайте также
модулями, а положительные оставить без изменения.(Надо написать программу на паскале)
SUM:=0; K :=M-1;
while K<N do
begin
for I(ай) := K-M+2 to K do SUM:=SUM+I;
K:=K+M;
end;
for I:=K-M+2 to N-1 do SUM:=SUM+I;
3)Программист Авсилий Кардов недавно получил банковскую карточку. Чтобы не забыть пароль к карточке, Василий решил построить его по алгоритму, а именно: пароль равен количеству чисел от 1 до 10000, не делящихся на 13 и 17. Чему равен пароль Васи?
4) Какой набор символов будет выведен в результате работы следующей программы?
function f(x:string; a:byte) :string;
begin
if a<=3 then
f:=copy(x, l, a)
else
f:=f(copy (x, 2, a), a-2;
end;
begin
writeln(f('abcdefghijklm',7));
end.
обоев. Площадь окон и дверей не учитывать. Известна стоимость одного рулона (86 рублей) обоев длиной 12 м и шириной 0,6 м. Составьте программу определяющую, какая сумма необходима для покупки обоев.