Получите из слова тестирование слово тостер.pascal abc​

ответ:

код к : «из слова тестирование сделать слово товар»

1.var s: string;

2.begin

3.s: ='тестирование';

4.delete(s,1,2);

5.delete(s,5,2);

6.writeln(s);

7.readln

8.end.

объяснение:

Везде значения вводятся с клавиатуры!
на java
если изучали массив:
public class qwert {
public static void main(String args[]) {
Scanner scn = new Scanner(System.in);
int[] a = new int[5];
int k = 0;
for (int i = 0; i < 5; i++) {
a[i] = scn.nextInt();
k = k + a[i];
if (i == 4)
System.out.println(k/i);
}
}}
если не изучали массив:
public class qwert {
public static void main(String args[]) {
Scanner scn = new Scanner(System.in);
int a = scn.nextInt();
int b = scn.nextInt();
int c = scn.nextInt();
int d = scn.nextInt();
int e = scn.nextInt();
int s = (a + b + c + d + e) / 5;
System.out.println(s);
}}
на паскале через массив:
var a:array [1..5] of integer;
i:integer;
s:real;
begin
for i := 1 to 5 do
begin
readln(a[i]);
s := s + a[i];
if i = 5
then
write (s/i);
end;
end.
не через масивы:
var a,b,c,d,e :integer;
s:real;
begin
readln(a,b,c,d,e);
s := (a+b+c+d+e)/5;
write(s);
end.

Pascal

 const     n = 9;
 var
  i,min,b : integer;
  a : array [1..n] of integer;
 begin    
  for i := 1 to n do
    a[i] := 10 + random (141); 

         min := 151;
   for i := 1 to n do 
   begin     if a[i] < min then
      begin   
   if a[i] div 100 > 0 then   
     b := ((a[i] div 10) - (a[i] mod 10)) div 10 
       else          b := a[i] div 10;   
    if b mod 2 = 1 then   
     min := a[i];      
      end;   
   end;   
   if min = 151 then 
  writeln ('not found')   
  else      writeln (min); 
 end.