Var arr:array of char;
var c:char = chr(63);
var str:String;
begin
WriteLn('Введите строку:');
Read(str);if str.length<> 6 then
WriteLn('Длина строки больше или меньше 6.')
else
begin
arr:=str.ToCharArray();
arr[1]:= c;
arr[4]:= c;
arr[5]:= c;
str:= '';
for var i:= 1 to arr.Length do
str+=arr[i-1];
WriteLn(str);
end;
end.
Ввод:
знания
Вывод:
з?ан??
var
a: <em>integer</em>;
begin
readln(a);
writeln(a mod 10, a div 10 mod 10, a div 100);
<span>end.</span>
#include <iostream>
<span>#include <cstdlib>
</span><span>#include <string>
</span><span>#include "stdafx.h"
</span>int main()
{
long int i;
long int ans = 0;
string s1, s2;
std::getline(std::cin, s1)<span>;
</span>std::getline(std::cin, s2);
for (int i = 1; i <= s1.length() - 1; i++)
{
if (s1.substr(i, 2)).find(s2)) ans++
}
std::cout << ans << std::endl;
return 0;
}
Program qq;
var z,x,y,v:real;
begin
z:=x*x*x+(y+v)-sqrt(0.25*(y+v));
write('Значение z=',z:6:2);
<span>end.
если надо с вводом значений x,y,v тогда вот так
</span>program qq;
var z,x,y,v:real;
begin
write('Введите значение x');
readln(x);
write('Введите значение y');
readln(y);
write('Введите значение v');
readln(v);
z:=x*x*x+(y+v)-sqrt(0.25*(y+v));
write('Значение z=',z:6:2);
end.