Графический адаптер, графическая плата
В программе буквы добавляются по алфавиту без повторений.
var s1,s2:string;
function F(var a,b:string):boolean;
var m:set of char; i:integer; c:char;
begin
m:=[];
for i:=1 to length(a) do
if pos(a[i],b)=0 then m:=m+[a[i]];
for c:=chr(32) to chr(255) do
if c in m then a:=a+c;
if m=[] then f:=false else f:=true;
end;
begin
writeln('Введите строку 1:');
readln(s1);
writeln('Введите строку 2:');
readln(s2);
if f(s1,s2)
then writeln('Новая строка: ',s1) else writeln('Строка не изменилась ');end.
Пример:
Введите строку 1:
program
Введите строку 2:
procedure
Новая строка: programagm
Напишите код на языке Pascal
Сергей живёт на окраине города и поэтому, чтобы добраться до офиса, ему приходится каждый день проезжать n станций метро. Оказалось, что на каждую станцию метро тратится t1 минут. Но не так давно Сергей купил свою первую машину и теперь он тратит на дорогу гораздо меньше времени! На пути к офису расположено k кварталов (каждый машина проезжает за t2 минут) и m светофоров (на каждом машина стоит t3 минут) Сергею стало интересно на сколько быстрее его новый способ передвижения. Помогите ему ответить на этот вопрос!
Формат ввода
В первых трёх строках через записаны целые числа n, k и m - количество станций, кварталов и светофоров соответственно (0 ≤ n, k, m ≤ 1000). В следующих трех строках целые числа t1, t2 и t3 - время, которое тратится на преодоление одной станции метро, квартала и светофора соответственно (0 ≤ t1, t2, t3 ≤ 1000).
Формат вывода
Выведите одно число - на сколько быстрее Сергей добирается от дома до своего офиса. Если же способ передвижения на машине дольше чем на метро, то выведите -1.
Program znanija;
var b:integer;
begin
writeln('Какой у вас пульc(в ударах в минуту)?');
readln(b);
begin if b=60 then writeln('Это нормальный пульс человека')
else writeln('Ваш пульс не соответствует норме');
end;
<span>end.</span>
1.что можно делать в школе?
бегать, ходить,играть,учить,узнавать. и тд.
2. в школе есть:
книга, библиотека , стены,кабинеты, и тд.