Program rtr1;Uses crt;var a,s,d,e:integer; ss,dd,ee:string;beginclrscr;Writeln('Введите число от 100 до 399');readln(a);s:=a div 100;e:=a mod 100 mod 10;d:=a div 10 mod 10;case s of1: ss:='сто';2: ss:='двести';3: ss:='триста';end;case d of2: dd:='двадцать';3: dd:='тридцать';4: dd:='сорок';5: dd:='пятьдесят';6: dd:='шестьдесят';7: dd:='семьдесят';8: dd:='восемьдесят';9: dd:='девяносто';end;case e of1: ee:='один';2: ee:='два';3: ee:='три';4: ee:='четыре';5: ee:='пять';6: ee:='шесть';7: ee:='семь';8: ee:='восемь';9: ee:='девять';end;if d=1 then begin case e of 1: dd:='одинадцать'; 2: dd:='двенадцать'; 3: dd:='тринадцать'; 4: dd:='четырнадцать'; 5: dd:='пятнадцать'; 6: dd:='шестнадцать'; 7: dd:='семнадцать'; 8: dd:='восемнадцать'; 9: dd:='девятнадцать'; end;write(ss,' ',dd);end elsewrite(ss,' ',dd,' ',ee);
<span>end.</span>
Засунь данное условие в Paskal и он выдаст тебе ответ.
Ответ:5430
Var
s: string;
begin
writeln('Введите ваше имя');
readln(s);
writeln('Здравствуйте, ',s);
writeln('Сегодня хорошая погода')
end.
Ответ:1)Тактовая частота процессора это количество выполняемых процессором операций в секунду.2)Системная шина – основная интерфейсная система компьютера, обеспечивающая сопряжение и связь всех его устройств между собой. Шина представляет собой канал передачи данных в виде электронных проводников на материнской плате или многожильного кабеля.3)Порт ввода-вывода – логическое объединение сигнальных линий, через которое принимаются и передаются данные.
Объяснение:
Var a,b: array[0..19] of Integer;
i: Integer;
begin
for i:=0 to 19 do
begin
a[i]:=random(5)+1;
b[i]:=random(5)+1;
end;
for i:=0 to 19 do
begin
if a[i]=b[i] then writeln('Номер: ',i,', значение: ',a[i]);
end;
end.