Для заданного х, введенного с клавиатуры, вычислить y по формуле:
y=√2 x−1.5+14 x2 (знак квадратного корня до 1.5)
Нужно написать программу для вычисления
Язык программирования Паскаль
Ответы на вопрос:
1
a)
program pr;
var
s: string;
c: char;
i: integer;
begin
writeln('введите имя и фамилию в одной строке');
readln (s);
writeln('введите заданный символ');
readln (c);
for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');
readln;
end.
б)
program pr;
var
s,n: string;
c: char;
i: integer;
begin
writeln('введите имя и фамилию в одной строке');
readln (s);
i: =1;
while s[i]< > ' ' do i: =i+1;
n: =copy(s,1,i-1);
writeln(n);
readln;
end.
в)
program pr;
var
s,n,f: string;
c: char;
i: integer;
begin
writeln('введите имя и фамилию в одной строке');
readln (s);
i: =1;
while s[i]< > ' ' do i: =i+1;
n: =copy(s,1,i-1);
f: =copy(s,i+1,length(s)-i+1);
writeln(n);
writeln(f);
readln;
end.
program pr;
var s: string;
begin
s: ='касіу ясь канюшыну';
delete (s,7,3);
insert ('слово которое хотите вставить',s,7);
writeln (s);
readln;
end.
Популярно: Информатика
-
КристинаНяшка227.03.2022 17:56
-
Alina970azhieva26.11.2022 12:36
-
WWW201419.03.2022 19:39
-
liyakuper220.12.2020 13:58
-
hellday22.11.2020 05:24
-
Lutiypacan143726.06.2020 14:26
-
zyryanovairina28.03.2023 13:07
-
TEmik77777777704.02.2021 19:22
-
rih90450719.06.2022 05:39
-
ksish45623.06.2022 19:02